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STRCMACS: AN EXTENSIVE SET OF MACROS 

FOR STRUCTURED PROGRAMMING IN OS/3 60 
ASSEMBLY LANGUAGE 


The latest buzzword in the computer profession is ''structured program- 
ming. " The term has been applied to any of a number of techniques all of 
which are claimed to improve software reliability and modifiability. These 
various techniques have been eyed with suspicion by some and praised by others. 
Performance levels of greater than 1800 lines of code per error have been re- 
ported. ^ In a world where late deliveries, release n (where n grows without 
boimd), PTFs, and bugs in production programs have been everyday experiences, 
such methods certainly seem to have something to offer. 

We will discuss the two techniques which have been most often referred to 
as "structured programming. " One is that of programming with high-level 
control structures (such as the if and while ) replacing tiie branch instruction 
("goto-less programming"); the other is the process of developing a program 
by progressively refining descriptions of components in terms of more primi- 
tive components (called "stepwise refinement" or "top-down programming"). 

In addition to discussing what these techniques are, we will try to show why 
their use is advised and how both can be implemented in OS assembly language 
by the use of a special macro instruction package. 

The use of assembly language itself is being questioned by many as being 
counter-productive to software reliability. The trend is for moving away from 
assembly language and its preoccupation with machine level details towards 
higher -level languages. Even operating systems are being written more and 
more in high-level languages. There are still many programs in the real world, 
however, which must be written in assembly lai^ages, either due to efficiency, 
interface problems, or to provide certain capabilities. Since these programs 
often have strict reliability requirements, it makes sense to provide a mecha- 
nism for using structured programming techniques directly in assembly language . 
Much of what will be said in the following pages, however, is applicable to pro- 
gramming in higher-level languages as well. 

Structured programming is not, of course, a panacea. Nor will switching 
to structured programmii^ automatically improve the quantity or quality of 
programs produced by every programmer. Terrible programs can be written 
in aifl^ language, for any system, and using any techniques in the world. But 


1 Baker, F, T„ “System Quality through Structured Programming,” FJCC 1972, pp. 339-343. 
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the majority of those who have used the structured programming techniques 
have found that the code they write is better, contains fewer bugs, auH is easier 
to maintain and modify than that which they had written previously using con- 
ventional programming. 


GOTO -LESS PROGRAMMING 

One of the biggest controversies in the programming community in recent 
years is the worth of the goto statement {i.e., the unrestricted branch instruc- 
tion) in programming languages. While it has been known for some time that it 
is theoretically possible to program any problem capable of algorithmic solu- 
tion without the use of goto s , attitudes on the practicality of writing computer 
programs in such a style have ranged from total disbelief to reverential zeal. 
However, as more and more people become involved in the issues, the number 
of people advocating goto -less programming seems to be increasing continually. 

One of the first printed objections to the goto was E. W. Dijkstra's letter 
to the editor of the Communications of the ACM in which he suggested that the 
"quality" of a programmer was inversly proportional to the densiQ?^ of goto 
statements in his program. When the concept of goto-less programming is in- 
troduced to most programmers, there is understandable skepticism. The sus- 
picion is often voiced that it must be terribly awkward to program after deleting 
what seems to be the most basic control mechanism of programming languages; 
and what code would be written must surely be inefficient and difficult to under- 
stand and debug. Yet, most persons who have attempted to write any amount of 
goto -less code are quick to state that the exact opposite is true: such programs 
are, they say, easier to understand and contain many fewer bugs and are often 
more efficient than their goto counterparts . It should be pointed out that pro- 
grams may use well-defined control structures and still contain goto statements. 
The objection is not to the goto per se, but to its use for arbitrary branching. 
Branching is certainly required to choose between alternatives. For a FORTRAN 
programmer to write the equivalent of the ALGOL code: 

if I < 5 
then 


J := 5; 
else 


J := I; 
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he would use; 


IF (1-5) 10, 20, 20 
10 J = 5 
GO TO 30 


20 J = I 
30 CONTINUE 

Branching occurs in either case. Properly optimized, the same object code is 
probably produced ly either. The former is certainly goto -Iess; the latter is 
as goto-less as one can be in FORTRAN. The technique, then, is really to limit 
oneself to standard and properly nested control structures , the argument being 
that this improves the intellectual manageability of the program. When a lan- 
guage provides these control structures directly, programs can then be written 
using such statements instead of synthesizing them from the goto . Such code 
as the FORTRAN segment above which contains gotos , but only "good" goto s 
{i.e., gotos which represent standard control structures) are sometimes called 
goto-less; we shall refer to such code as quasi -goto -less , to distinguish be- 
tween it and truely goto-free code. In such quasi -goto -less code, the standard 
control structures are not always quite so obvious and it is easier to make mis- 
takes than when the proper control structures are provided directly in the lan- 
guage. We shall return to a discussion of quasi -goto -less code later when we 
discuss la ng uage requirements for goto -less programming. 

At the 1972 National Conference of the ACM, a debate was held on whether 
the goto should even be a part of future prc^ramming languages. The interesting 
thing about the debate was that even those who were trying to justify the reten- 
tion of the goto did not do so on the grounds that it was required for good pro- 
gramming fact , one debater stated; "In my opinion, there have been far 
too many gotos in most programs .... The no goto rule. . . .does improve the 
code produced by most programmers. ... If I were teachii^ a beginning pro- 
gramming class, I would not teach the goto . In the final analysis, all of the 
debaters seemed to agree that at least the vast majority of programming should 
be done without usii^ goto s , with the only controversy being whether future pro- 
gramming languages should still allow its use or not even provide such a 
statement. 


1 Martin E. Hopkins, “A Case for the go^,” Proceedings of the ACM, 1972 Annual Conference, pp. 787- 
790, August 1972. The last statement was mentioned as an aside during the debate and does not appear in 
the proceedings. 
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An excellent discussion of the rational for goto -less program ming is given 
in "A Case Against the goto " by William A. Wulf. This speech was given in the 
goto controversy debate at ACM 1972 mentioned above. What follows is an at- 
tempt to summarize some of the major points of that paper. The reader is re- 
ferred there for a more complete discussion. 

The main objection to the goto is that it is possible to construct such a maze 
of goto s that control flow becomes completely obscured and such uses seem to 
be altogether too common. There are certain uses of the goto which form easily 
recognizable control structures and are, therefore, more intellectually manage- 
able. But by providing these structures specifically by name (if, etc. ), they 
become that much more recognizable. The reason for this emphasis on the in- 
tellectual manageability of programs is in recognition of the reliability problems 
which have occurred with major programming systems in the past decade. The 
modularization and proving of correctness of programs is going to be of primary 
interest if future systems are to provide substantial improvements over past 
performance. Both of these goals are greatly simplified in a goto-less 
environment. 

Consider the example on the following page. On the left is a portion of a 
subroutine written in FORTRAN. (To avoid extraneous detail, conditional ex- 
pressions have been represented by lower ease letters and blocks of code con- 
taining no control statement are shown as capital letters in angle brackets. ) On 
the right is the same program in SIMPL-M, a goto-less language. (The key- 
words "fl" and "pd" are used to terminate the "W~and " while . . constructs.) 
Suppose the program abended during the execution of <J> . What can be said 
about the truth of Of Is it possible that was executed? If so, in 
what case ? All of these can be answered from either program; but the results 
are more easily seen in the SIMPL-M version since the control flow is more 
graphic. In particular, it is much easier to trace the execution paths backwards 
when necessary than when gotos and labels are used since the immediate prede- 
cessor of any statement is easily determined. 

The fact that it is theoretically possible to write programs in a goto-less 
environment is not particularly surprising since there is no explicit branching 
mechanism in a number of the formal systems of computability theory {e.g . , 
recursive functions. Post systems, Markov algorithms , etc.) and yet these sys- 
tems have the same computational power as, say, FORTRAN. However, as 
Wulf points out: ’ 

"this does not say that an algorithm for the [solution of an 
arbitrary problem] is especially convenient or transparent 
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Conventional programming 


goto-less programming 



IF (q) GO TO 

20 



IF q 


IF (r) GO TO 

10 



THEN 


<A> 




<c> 


GO TO 60 




<D> 

10 

<B> 




IF s 


GO TO 60 




THEN 

20 

IF (s) GO TO 

80 



IF w 


<c> 




THEN 


<D> 




<K> 


<E> 




WHILE X 

30 

IF (.NOT.(t)) 

GO 

TO 

40 

DO 


<F> 




<L> 


GO TO 30 




OD 

40 

IF (u) GO TO 

70 



<M> 


<G> 




FI 

50 

IF (.NOT.(v)) 

GO 

TO 

60 

ELSE 


<H> 




<E> 

60 

<I> 




WHILE t 


RETURN 




DO 

70 

<J> 




<F> 


GO TO 50 




OD 

80 

IF (w) GO TO 

90 



IF u 


<c> 




THEN 


<D> 




<J> 


GO TO 110 




ELSE 

90 

<c> 




<G> 


<D> 




FI 


<K> 




IF V 

100 

IF (.NOT.(x)) 

GO 

TO 

110 

THEN 


<L> 




<H> 


GO TO 100 




FI 

110 

IF (.NOT.(w)) 

GO 

TO 

120 

FI 


<M> 




ELSE 

120 

IF (.NOT.(v)) 

GO 

TO 

60 

IF r 


<H> 




THEN 


GO TO 60 




<B> 


ELSE 


<A> 

FI 

FI 

<I> 
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in goto -less form. Alan Perils has referred to similar 
situations as the ’Turing Tarpit' in which everything is 
possible, but nothing is easy. 

This brings up the practicality of writing and debugging goto -less programs. 
Wulf offers his experience with the designing, implementation, and use of the 
goto -less systems implementation language BLISS as a subjective argument for 
the method. He lists a number of large scale systems which have been written 
in BLISS and states: "Programmers familiar with languages in which the goto 
is present go through a rather brief and painless adaptation period. Once past 
this adaptation period, they find that the lack of a goto is not a handicap; on the 
contrary, the invariant reaction is that the enforced discipline of programming 
without a goto structures and simplifies the task. "2 Such subjective judgements 
seem to be fairly common among those who have done any appreciable amount 
of goto -less programming, while the majority of the reservations seem to be 
expressed by those who have never attempted it. 

The main arguments for goto -less programming are: 

• goto -less programs are easier to understand, debug, and modify. 

• It is easier to prove assertions (in particular, to prove program cor- 
rectness) about goto -less programs. 

• Goto -less programs are less likely to contain bugs due to their intel- 
lectual manageability. 

• Compilers are able to understand, and therefore to optimize, goto- 
less programs to a larger extent. 

• Languages which contain the goto construct invite its misuse to make a 
"rat’s nest" of control flow. 

The first three of the above arguments provide sufficient reasons for program- 
ming goto -less in any language which provides the requisite control structures 
regardless of whether an actual goto is also present in the language or not. 


^William A. Wulf, ‘‘A Case Against the goto,” Proceedings of the ACM, 1972 Annual Conference p 794 
August 1972. 

2ibid,p. 795. 
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It should be mentioned that the languages in which goto -less is really leas- 
able are more than bare-minimum languages. The theoretical considerations 
show that the required constructs are; 

• some form of grouping statements into nestable ’’blocks" 

• a conditional statement (such as the ALGOL or PL /I i|) 

• a repetition statement (such as the ALGOL for or the PL/I iterated 

Other minimum sets of constructs may be selected which are equivalent 
(for example, CALL/RETURN, CASE [an «-way conditional], and recursion). 
However, there is no reason to limit ourselves to a minimum set, particularly 
since we are attempting to make the programming as straight-forward and per- 
spicuous as possible. By providing a number of basic constructs, we avoid the 
need to contort the available forms to produce desired constructs . 

One such special form is the BLISS leave statement. This provides for 
exitii^ from a loop (or other block) upon the discovery of unusual conditions be- 
fore the normal termination test is satisfied. Such an exiting statement may 
allow the jumping out of several levels of blocks. This is no different than a 
series of ifs. The program: 


OUTER: begin ; 

INNER: beg^; [The BLISS language has been 

• simplified somewhat.] 

HI - 0 
then 

leave OUTER; 
a 

end ; 

a 

end ; 

7 
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has the same effect as: 


OUTER: begin; 


INNER; begin ; 

if I 0 
then 
begin ; 

0 : 

end ; 

end; 
i| I y 0 
then 
begin ; 

P 

end ; 

end ; 

7 

Notice, however, that by using the leave statement, the immediate prede- 
cessors of 7 are not quite as obvious; as a result, the compiler should give ap- 
propriate warning messages to flag the targets of leave instructions. 

In lai^uages which do not provide the necessary control structures, one 
must resort to quasi -goto -less code. Unfortunately, many of the advantages in 
the ease of reading and understanding and the avoiding of bugs is almost nullified 
when programming in the quasi -goto -less manner. The best approach when pro- 
gramming in such languages is to do the initial design programming in an "ab- 
stract programming lar^age" — an arbitrary language (real or imagined) which 
provides sufficient high-level features to allow one to program the algorithm 
without being bogged down in extraneous detail — and then to translate (by hand 
or usir^ a preprocessor) the abstract program to the required target language. 

Such a method was used in the programming of the structured macros 
themselves. Since 360 macro assembly language contains no statement group- 
ing capability nor any looping construct, the actual programming was done in 
an imaginary abstract programming language called SIMPL-M, This not only 
simplified the writing of the macros, but it also is the "source" language for 
documentation and certification purposes. The listing of the macros in Appendix 
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C is in SIMPL-M. This source was then hand -translated into macro assembly- 
language in a straight-forward manner. Any changes or extentions are always 
made in both to assure the "source" is kept current. 


More will be said about abstract programmii^ lai^ages in the section on 
stepwise refinement. 

Those defendii^ the retention of the goto in the ACM 72 debate used the 
following arguments; 

• the goto is desirable for abnormal exits from a block or procedure 


• code written with the goto can be more efficient than code written without 

• the goto is useful for synthesizing new control structures 


An excellent discussion of these points is provided in "A Case for the goto " by 
Martin E. Hopkins. ^ It is this author's feelir^ that perhaps a compromise solu- 
tion to the controversy is in order, at least for the present. The goto could be 
provided, but with the status of a "disfavored instruction. " As such, it would 
require the specification of a compiler option before it, would be accepted at all. 
Even with the option turned on, each use would produce a warning diagnostic 
message. 

An early version of the structured macros included a facility to assign a 
level-6 warning every time a branch instruction was generated. Since most 
standard cataloged procedures will not continue if any message higher than 4 
occurs, this was treated as an error. If the user required the branch (as when 
it was generated by an OS/360 macro), he could raise the conditional -execution 
threshold to 7, thereby allowing the branch message to be treated as a warning, 
but still bypassing execution on any standard level -8 error messages. As of the 
release 20 assembler, however, it is no longer possible to use the technique 
which implemented the level-6 warning. 


iRopkins, ibid. , pp. 787-790. 
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Three classes of programming languages may be distinguished. In the 
first, only goto -less programming may be done since no goto is provided. This 
group includes such languages as (pure) LISP.^ ISWIM,^ BLISS, ^ OREGANO,^ 
GEDANKEN,^ and SIMPL-X,^ In the second class are languages which provide 
a goto , but also provide sufficient control structures to do goto-less program- 
ming. PL/I and assembly language using the STRCMACS are examples of lan- 
guages in this class. In the remaining class (which unfortunately includes our 
most popular languages— FORTRAN and COBOL), Insufficient control structures 
prevent doing anything beyond quasi - goto -less programming. (It is possible to 
do truely goto -less programming in both FORTRAN and COBOL by using the 
CALL/SUBROUTINE or PERFORM/SECTION mechanism. But when every 
block of two or more statements [in FORTRAN] or eveiy nested structure [in 
COBOL] requires another SUBROUTINE or SECTION, the result is an over- 
whelming proliferation of modules and often a high linkage overhead. Further- 
more, since the code is always out-of-line, readability is totally destroyed.) 

The main advantage, then, of goto -less coding can be summed up as fol- 
lows: by limiting the flow of control in modules to a few well-understood and 
carefully -defined constructs, one’s understanding of the flow is aided and, 
therefore, the overall logic of the module is brought more within the grasp of 
the programmer, reader, and later the modifier of the program. 


McCarthy, al.. LISP 1.5 Programmers Manual, The M.I.T. Press, Cambric^e, Mass., 1962. 

Landin, P. J., “The Next 700 Programming Languages,” Comm ACM, 9:3, pp. 157-166, March 1966. 

Wulf, W. A., eta/., “BLISS: A Language for Systems Programming,” Corwm .iCAf, 14:12, pp. 780-790 
December 1971. 

'^Berry, D. M., “Introduction to Oregano,” Proc. Symposium on Data Structures in Programming Languages 
SIGPLAN Notices 6 : 2, February 1971. ^ 

5 Reynolds, J. C., “GEDANKEN: A Simple Typeless Language Based on the Principle of Completeness and 
the Reference Concept,” Comm ACM 13:5, pp. 308-319, May 1970. 

Basili, Victor R., “SIMPL-X: A Language for Writing Structured Programs,” University of Maryland Tech- 
nical Report TR-233, January 1973. 
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STEPWISE REFINEMENT 


As was mentioned earlier, we use the term "stepwise refinement" to mean 
the process of developing a program by prc^ressively refining descriptions of 
components in terms of more primitive components, (Some use the term "struc- 
tured programming" to mean only "stepwise refinement. ") It would be some- 
what redundant for us to go to great depth into the subject of stepwise refinement, 
as there already exists a number of excellent papers on the subject. Predom- 
inent among these are Dijkstra’s "Notes on Structured Programming,"! Wirth’s 
"Program Development by Stepwise Refinement, "2 and Hoare’s "Notes on Data 
Structuring. "3 We will give here only a basic overview of the topic and refer 
the reader to the above papers for more details and examples . 

Stepwise refinement is an outgrowth of the problem-solving process. Con- 
sider the following: 

A. A problem is posed which requires solving; it is deemed capable of 
algorithmic solution and appropriate to computer solution. That is, 
what is to be done is well-defined; how it is to be done is not yet 
specific. 

B. An algorithm is developed expressed in terms intelligible to an appro- 
priate computer (possibly utilizing a translator as intermediary). A 

" /jow -to-do -it" is now well-defined; it purports to accomplish the 
"what " of step A. 

C. A convincing argument is put forth that the "how" of B accomplishes 
the "what" of A. 

The process of going from A to B involves a number of activities including; 
formalizing such terms as "find", "search", "summarize", and the like; de- 
fining data items to hold real-world quantities; and deleting vagueness. Such 
activities are the heart of programming. 

The process of going from A to B need not be done in a single pass. The 
process is greatly simplified and the results are more understandable and 


^Dijkstra, E. W., “Notes on Structured Via^araaaag” Structured Pro^amming, Academic Press, 1972. 
^Wirth, N., “Program Development by Stepwise Refinement,” Comm ACM, 14:4, pp. 221-227, April 1971. 
^Hoare, C. A. R., “Notes on Data Structuring,” Structured Programmir^, Academic Press, 1972. 
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reliable if a number of levels are used. At the outermost level, the "what" to 
be accomplished is the "what" of A. But instead of moving directly to the "how" 
of B, we go to a "how" Bj for some abstract super-machine with arbitrarily 
complex instructions. Most of the instructions of Bj are not intelligible to our 
real computer. But the number of instructions are few (maybe 50 or so), so 
we can feel that, if there were a machine which could understand Bj , it would 
surely accomplish the task A. We can now take the instructions of B^ (call them 
the ) and for whichever are not understandable to our real computer repeat 
the problem-solving process producing a program B 2 —the "how" for each A 2 / 
in more primitive terms. This process is continued until eventually all instruc- 
tions are in terms intelligible to our computer. 

At this point, we have the program B written entirely in some machine- 
understandable language and all the intermediate "super-instructions" may be 
discarded. However, for the purpose of documentation and maintenance, it is 
probably desirable to save these intermediate programs. This may be accom- 
plished in the following ways. (1) The, name of the super-instruction can appear 
as comment cards surrounding the final instructions defining the super- 
instruction. (2) The super-instruction can be replaced by a call instruction and 
the definition of the super -instruction can be made a module (subroutine, pro- 
cedure, or whatever) of it's own. (3) The super-instruction can be replaced by 
an Invocation of a macro (compile-time call or INCLUDE statement) and the def- 
inition of the super -instruction can be made a macro. Each of these methods 
have advantages and disadvantages. 

The use of in-line code with the super -instruction as comments makes 
reading the final code difficult. The outermost routines will run over many 
pages, interrupted by many levels of definitions of super -instructions. When 
macros are used, a similar problem occurs if one attempts to read a listirg 
which includes the expansions. If, on the other hand, one reads the macro def- 
initions themselves, each macro is a module ty itself and the code is much 
more understandable. The macro listings, however, do not correspond to core 
dumps, so debugging is often difficult without sophisticated debugging aids. By 
allowing the definitions to correspond to modules evoked by run time calls , the 
program's topography is maintained. Care must be taken, though, to assure 
the calling overhead does not become excessive. 

By using this method of programming, the modules developed during de- 
signing are both the natural modules for coding and also the modules of docu- 
mentation. By limiting each module to about 50 lines (one page), one not only 
helps such typographical aid as the indention of control structures but also limits 
the breadth of the activity of the module to a reasonable size, improving the 
overall intelligibility of the program. 
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Designing a large program from the top down is not all new ; nor is the 
breaking of code into modules. Such techniques have been used under the name 
"modularity” for some time. The extension here is to break up the modules by 
stepwise refinement and code them in the same fashion. In addition, the modu- 
larity is carried down to much lower levels. The requirements ("what") of each 
module are well-defined and the method by which these requirements are ful- 
filled (the "how") is limited in detail to about a page. 

This top-down approach may be used in the codii^ and testing phase as well 
as the design phase. The highest level modules are written first and are tested 
by providing dummy versions of the super -instructions evoked. These dummy 
"stubs, " as they are called, are then replaced with the code necessary to per- 
form the required function. New stubs are inserted for any new super- 
instructions evoked but not yet written. By writing the code in this top-down 
fashion, most of the interfacing among modules is designed early and errors are 
exposed before much effort is lost in incompatabilities. In addition, an attempt 
is made to keep communications along well-defined paths; i.e. instead of coding 
data references arbitrarily throughout the program, interfacii^ is done only be- 
tween a module and the modules it calls directly. Such a communication disci- 
pline makes modules more independent, providing easier debugging, easier 
maintenance, and a simplified interface for later replacement of modules by 
different algorithms for the same function. When makii^ changes (whether to 
fix bugs, change subfunctions, or change algorithms), one searches down the 
hierarcl^ to the highest level module, say M, at which the change is no longer 
transparent. Since typically many levels exist where the charge is transparent, 
much of the code need never be considered during the change. Module M and its 
descendants are then discarded, redesigned, and rewritten, at least in theory. 

In practice, many of the same functions will still probably be required, so the 
modules providing those functions may often be retained virtually unmodified. 
Other functions may be close enough to the discarded modules to allow simple 
modification or adaptation. In short, the "rewrite" spoken of above is often not 
much more than one would need to change in a conventional look-around-and- 
change-whatever-is -necessary fashion; but the scope of the change is more well- 
defined and the module independence both simplifies the task and yields a higher 
confidence that all necessary changes have been made. 

A number of the above techniques were developed or refined by Mills and 
Baker of IBM in connection with the New York Times Information Bank 
program. 1 


1 Baker, F, T., “Chief Programmer Team Management of Production Programming,” IBM Systems 11:1, 
pp. 56-73, 1972. 
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EFFICIENCY OF STRUCTURED CODE 

There is some concern about the efficiency of structured code, and rightly 
so. Efficiency is an important consideration and is often one of the primary 
benchmarks used in deciding among prc^ramming languages. Although it is 
true that carefully customized control structures can often save a few branch 
instructions or test instructions over using the limited set provided by goto-less 
languages and that a program with no call statements saves linkage overhead 
compared with its modular equivalent, the structured programming techniques 
provide a number of opportunities for efficiency, some of which are not avail- 
able in conventional programs. 

Compilers for the few high-level languages which have been designed for 
doing structured programming have already begun to reap some efficiency ben- 
efits. In ALGOL and PL/I, it is possible to goto out of a procedure into some 
other active block. When such a goto is executed, variables local to the pro- 
cedure (in PL/I, only those with the AUTOMATIC attribute) must have their 
storage freed. This requires extra overhead (even if such gotos never occur) 
which is not necessary in goto-less languages. 

Conventional programs which are a rat's nest of control flow are not only 
hard for humans to understand; compilers often get confused, too. Major opti- 
mizers (such as FORTRAN H) must spend much time figuring out the structure 
which is implicit in goto -less languages. And most compilers must finally give 
up when they cannot resolve the flow into standard constructs. Loops which 
don't look like loops can't be optimized like loops. But since standard control 
structures are always headed by the appropriate keyword in structured pro- 
gramming languages, optimizers can always recognize them and therefore pro- 
duce more efficient results. 

Structured prograniming often results in many procedures which are each 
called from only one place and frequently have no formal parameters. High- 
level language compilers can easily expand such calls as in-line routines to 
bypass calling execution overhead. 

These automatic methods are not available to the assembly language pro- 
grammer (at least not with most current assemblers), but other techniques are 
useful. Various studies have indicated that, for most programs, the over- 
whelming majority of the execution time is spent in a relatively small part of 
the code. This fact can be exploited as follows. One writes a program in a 
structured fashion. Then, once the code is debugged, timing estimates (or at 
least module execution coimts) are obtained to locate the critical sections of the 
code. These sections may then be optimized using various techniques including 


14 



the addition of customized control structures constructed from goto s and the in- 
line expansion of modules. 


Other considerations also point to increased efficiency in structured pro- 
grams. Since such programs tend to have many fewer errors, saving in debug 
time can be applied to optimization efforts. The greater intellectual manage- 
ability of structured programs may lead to the use of better algorithms. The 
ease of modifiability opens the door for replacing entire algorithms within work- 
ing programs with a minimum of problems . Techniques such as these can make 
major increases in program efficiency and can make up for a myriad of redun- 
dant tests or occurrences of branch-to-a-branch. 

Finally we should realize that even a certain loss in efficiency would be 
an acceptable cost for greatly increased program reliability. For no matter 
how efficient, a program with bugs doesn't really solve the problem it was 
supposed to solve. And a good deal of computer time can be wasted when even 
a simple bug requires a rerun of the program. 
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INTRODUCTION TO STRCMACS 


In Appendix A, each of the STRCMACS macros is listed, along with a com- 
plete discussion of its possible operands. The pages which follow are intended 
to provide an informal introduction to the use of the STRCMACS in a tutorial 
manner. 


The STRCMACS are used to provide the basic control structures which re- 
place the use of branch instructions and to provide aids for doing stepwise re- 
finement programming. As noted in the discussion of goto-less programming, 
three things must be provided: a method of grouping statements into units, a 
decision structure, and an iteration structure. The STRCMACS provide each 
of these as well as some additional "convenience" macros to simplify concep- 
tualization and coding. 

Defining blocks 

The instruction grouping capability is provided by the defining of "blocks" 
of code. Such blocks are delineated by codir^ a block-initiating macro before 
the first instruction of the block and a block-terminating macro after the last 
instruction of the block. The simplest block defining macros are the BLOCK/ 
BLEND pair. For example, the followii^ block is a unit whose purpose is to 
increment the integer WORD: 

BUMP BLOCK 

L l.WORD 

LA 1,1(1) 

ST l.WORD 

BLEND BUMP 


An optional block name may be specified on the block-initiating macro. Since 
there are no branch instructions in goto -less programs, the name field "BUMP" 
is basically a comment. If a name is provided, it will appear in the cross- 
reference table of the assembly. 

A number of other macros also define a block. For example, the IF macro 
below not only tests the indicated condition, but initiates a block definition; the 
FI macro terminates the block. 


TRY 


IF (LTR,3,3,Z) 
L l.WORD 

LA 1,1(1) 

ST l,WORD 
FI TRY 


More will be said about the IF and FI macros later. 
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A block may contain machine instructions , evocation of subroutines , OS or 
user macros, or other blocks. Coding one block inside another is called nesting. 
In the following example, block B is nested inside of block A, and block C is 
nested inside of both A and B. 

A BLOCK 

L 

B IF 

A 

C IF 

S 

FI 
FI 
BAL 

BLEND A 

We will now define a few terms which will be useful in discussing nested 
blocks. The current nest level of any statement in a program is the number 
of block initiating macros (that is, macros which start blocks such as BLOCK 
and IF) up to and including liie given statement minus the number of block ter- 
mination macros. In the code segment above, if no blocks are defined in the 
program before that segment, the "A BLOCK" macro is at a current nest level 
of 1; the "S 1, FUDGE" instruction is at a current nest level of 3. The current 
nest level of a block is the current nest level of the macro initiating the block. 

The current nest level of block B above is 2. 

A block X surrounds a block Y if X is initiated before and terminated after 
block Y. X immediately surrounds Y if X surrounds Y and there is no block Z 
such that X surrounds Z and Z surrounds Y. A block X is properly nested if it is 
terminated before the termination of any block which was initiated before the 
initiation of X. A program is properly nested if all its blocks are properly 
nested. At any point in the program, the current block is that block most recently 
initiated which has not yet been terminated. 

Using the above definitions the following statements can be easily verified. 

If block X surrounds block Y, the current nest level of X will be less than the 
current nest level of Y. If X immediately surrounds Y, the current nest level 
of X will be exactly one less than the current nest level of Y. In a properly 
nested program, block termination macros always terminate the current block. 

The structured macros are used to define properly nested programs. Error 
messages occur if a block terminating macro is issued for other than the cur- 
rent block. If no block name is coded as the operand of a block terminating 


l,WORD 
(LTR,3,3,Z) 
1,INCR 
(LTR,4,4,NZ) 
1, FUDGE 
C 
B 

14,XYZSUB 
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macro, the current block is assumed. Blocks may be nested up to some depth 
which is built into the macros. As distributed, this depth is 100. 

Decision making 

As shown in the previous section, an IF macro is provided to make condi- 
tional tests. So far we have shown IF macros with operands which were simple 
conditionals, such as: 

(LTR,3.3,Z) 

The first three operands in the list give an instruction to be executed to set the 
condition code. The fourth operand specifies the mnemonic (from the extended 
branch mnemonic BZ) for the block which follows to be executed. Hence the 
code: 


TRY 


IF (LTR,3,3,Z) 
L l,WORD 
LA 1,1(1) 

ST l,WORD 
FI TRY 


will increment the fullword WORD by one if register 3 is zero. The conditional 
may also be given in two other equivalent forms: 

(LTR,3,3,Z) 

(LTR,3,3,REL=Z) 

(LTR,3,3,MASK=8) [The mask of a BC instruction.] 

Note again that the mask or relation specified is that for executing the block. 

The code generated for the above simple conditionals is actually: 

LTR 3,3 LTR 3,3 

or 

BNZ end-of-block BC 1 ,end-of-block 

Any valid machine operation code (other than branching instructions) may 
be specified followed by the relation or mask. E.g. 

IF (TS,SPOT,MASK=8) 

IF (CR,3,4,E) 

IF (CLM,3,X'C’,BYTE,REL=E) 
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The following relations may be used: 


H or GT (High) 

L or LT (Low) 

E or EQ (Equal) 

O (Ones or Overflow) 

P (Plus) 

M (Minus) 

Z (Zero or Zeros) 


N H or LE 

N L or GE 

NE 

NO 

NP 

NM 

NZ 


(Not High) 

(Not Low) 

(Not Equal) 

(Not Ones or Not Overflow) 
(Not Plus) 

(Not Minus) 

(Not Zero or Not Zeros) 


The FI macro terminates the conditional block. The keyword FI has been used 
in a number of recent languages (most notably ALGOL 68) to mean "the end of 
an IF block" and is a convenient specific delimiter. For those who prefer, the 
macros IFEND or BLEND may be used in place of FI. (BLEND may, in fact, 
be used to terminate any block. ) 


If the condition code has already been set, it can be tested by coding only 
the branch mnemonic or mask, as: 


IF (MASK=X'C) 
SR 3,5 
FI 


which subtracts register 5 from 3 if the condition code is either zero or one. 

Simple conditionals may be joined by ANDs or ORs to make more complex 
conditional expressions. For example. 


QTEST IF 

L 

MORECHK IF 


L 

LA 

ST 


FI 

A 


(LTR,5,5,Z),OR,(CH,3,HWORD,NE) 

7, SPOT 

<,(CR,7,5,E),OR,(SR,3,l,Z),>.AND,(LTR,l,l, 
MASK=SYMMASK) 
l,WORD 
1 , 1 ( 1 ) 
l,WORD 
MORECHK 
7 .WORD 
QTEST 


The entire QTEST block is bypassed unless either register 5 is zero or register 
3 differs from the halfword at HWORD. If the QTEST block is executed, another 
conditional expression is evaluated at MORECHK. Note the use of angle brack- 
ets to group operands. These must be coded as separate macro operands— /.e.. 
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< (CR,7, 5,E),OR, (SR,3, 1,Z)> is invalid. The symbols and "/’* may be 
used instead of and for those installations whose print chains will not 
print the latter. If brackets are omitted, the OR is treated as having higher 
precedence than the AND. (If the brackets were omitted in MORECHK above, 
the operation would be performed as "(CR , 7 , 5 , E) , OR , < , (SR , 3 , 1 , Z ) ,AND , 
(LTR, 1,1, MASK=SYMMASK) ,> ) Instructions which do more than just set the 

condition code (such as the SR above) may be used within conditional expres- 
sions. It should be realized, however, that such operations may not always be 
executed. In the MORECHK block above, register 1 will not be subtracted 
from register 3 if registers 7 and 5 are equal. 

An ELSE macro is provided to define a block which is to be executed if and 
only if the preceding IF block fails. The ELSE macro terminates the IF’s true 
block and initiates the IF's false block. 


LIMIT 

IF 

(C , 7 , =F • 100’ , H) , E LSE=TRY0 


L 

7,=F'100' 

TRYO 

ELSE 

BLEND=LIMIT 


IF 

(LTR, 7, 7, M) 


SR 

FI 

7,7 


FI 

TRYO 


The above block limits the value of register 7 to an integer between 0 and 100. 
Here, as before, the block name LIMIT and TRYO are optional as are the 
ELSE=TRY0 and BLEND=LIMIT operands. They may be coded to cause the 
macros to do checks to insure that a FI has not been accidentally added or 
omitted. Note that a FI for a block headed by an ELSE macro must either 
specify the else-block name or have a blank operand field. 

A special form of the IF is provided to handle asynchronous branch points, 
particularly for the EODAD-point of data sets. The following illustrates a 
typical use of this form: 

GET (IN,CARDAREA) 

IF ASYNCH 

INPUTEND OI FLAG, EOF 

FI 


IN DCB . . . ,EODAD=INPUTEND 
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The asynchronous IF generates an unconditional branch around the block. Note 
that if a label occurs on the IF macro, it will be defined on the branch instruc- 
tion. As a consequence, the label "INPUTEND" is specified on the first in- 
struction inside the block rather than on the IF macro itself. 

Iteration 

Iteration is provided in the STRCMACS by the DO macro. A conditional ex- 
pression is specified similar to that in the IF macro, following a keyword such 
as 'WHILE". With the WHILE keyword, the block is executed if the condition 
is true and execution is repeated as long as the condition remains true. For 
example: 

DO WHILE, (TM, 0(5), X'80’,Z) 

L 5,0(5) 

OD 

follows a chain of pointers until one is found with the high-order bit on. If the 
keyword "UNTIL" is the first operand, the block is always executed once, and 
execution continues until the conditional expression becomes true. 

SEARCH DO UNTIL,(CLC,A,ARG,REL=E),OR,(TM,FLAG,EOF,0) 

GET (IN, A) 

I F A SYNCH 

INPUTEND OI FLAG, EOF 

FI 

OD SEARCH 

The above code always reads at least one record. Records continue to be read 
until the value read is the same as the value in ARG or end of file is reached. 
Logically, the UNTIL test occurs at the end of the loop SEARCH. 

Both WHILE and UNTIL tests may be provided. In the previous example, 
we wished for the end of file test to occur before the first loop execution, we 
could code: 

DO WHILE , (TM ,FLAG , EOF , Z ) , AND , UNTIL , (CLC , A , ARG , EQ) 

The WHILE and UNTIL tests may be coded in either order and may be separated 
by either "OR" or "AND". 

i 

The 3&0/370 provides three instructions which are particularly well suited 
for the construction of loops: BXH, BXLE, and BCT. Use of these looping 
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branches is provided for in the DO macro either in place of or in addition to 
conditional expressions. 


FILLIS 


LA 1,1 FILL ARRAY 

LA 3, ARRAY WITH I’s. 

LA 4,4 

LA 5,ARRAYEND 
DO UNTIL,(BXLE,3,4) 

ST 1,0(3) 

OD 


Normally, looping branches are coded as UNTIL tests to place them at the logi- 
cal end of the loop. Coding them as WHILE tests will cause the index to be in- 
cremented once before the first execution. 


LA 3,5 

DO WHILE,(BCT,3) 


♦ 

OD 

The above loop will execute only four times. 

If both a loopir^ branch and a conditional expression are specified following 
a keyword (WHILE or UNTIL) , the looping branch must appear first, then either 
"AND" or "OR", and then the conditional expression. A DO macro may have 
only one looping branch (BXH, BXLE, or BCT). 

X DO UNTIL,(BCT,5),OR,(LTR,4,4,Z),AND,(TM,FLAG,X'80',Z) 

OD 

Brackets are assumed to be around the conditional expression, so the loop X 
will repeat until either register 5 is decremented to zero or both register 4 con- 
tains a zero and the high order bit in FLAG is off. The code generated is: 


B 

a 

LTR 

4,4 

BNZ 

Oi 

TM 

FLAG,X’80’ 

BZ 

(3 

DS 

OH 

block 

code 

BCT 

5,7 

DS 

OH 
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Appendix B shows the code generated for all possible combinations of DO 
operands . 

The OD macro terminates the block. It may also be coded as DOEND or 
BLEND, 


Multiple decisions 

As was pointed out earlier, the block, if-then-else , and do-while constructs 
are sufficient for any programming task. Several additional macros 
vided, however, for convenience in coding or conceptualizing t e prog 
of these is the DOCASE statement. 

In its simplest form, the DOCASE statement defines the start of a block and 

defines an indexing variable whose value is. say, i. ^^^^ruted and 

are some number (say «) of CASE blocks. The rth CASE block is executed and 

the remaining blocks are skipped . 


Example: 


UPDATE 

DOCASE 

REQWORD 

ADD 

CASE 

• 



ESAC 

ADD 

REPL 

CASE 

• 



ESAC 


CHANGE 

CASE 

* 

# 



ESAC 



CASE 



ESAC 

ESACOD 

If the word REQWORD contains a 2, the CASE block labeled REPL will be ex- 
ecuted. If REQWORD is not a positive integer less than or equal to four, no 
CASE block will be executed. 

One of the CASE macros (usually the last of the list) may have the operand 
"MISC" to indicate that it is to be executed only if no other block is appropriate 
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(that is , if the index is less than one or greater than n, in the form we have 
discussed so far). This miscellaneous block is not counted in locating the /th 
block. In our example, if the CASE labeled REPL had the operand MISC then 
an index value of 2 would execute the CHANGE case, and any index less than 1 
or greater than 3 would execute the MISC case REPL. 

A number of extensions to the DOCASE are provided to increase its useful- 
ness. Operands may be specified on the CASE macros to indicate for which 
values, of the index they are to be selected, rather than allowing selection to oc- 
cur by ordinal position number. By using this feature, multiple index values 
may be made to select the same CASE. Even entire ranges of operands may be 
made to select the same CASE. 

DOCASE I 
A CASE 3,7 


ESAC 

B CASE 0,2,8 


ESAC 

CASE 4,(9,13),X»1C 


ESAC 
D CASE 


FIVE, (FOURTEEN, SIXTEEN) 


ESAC 
E CASE 


ESAC 

ESACOD 
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FIVE 

EQU 

5 

FOURTEEN 

EQU 

X'E’ 

SIXTEEN 

EQU 

FIVE+11 


Case A will be executed if I contains either 3 or 7; case C for I of 4, 9, 10, 
11, 12, 13, or 28 (=X’1C). As indicated, values may be specified symbolically 
(although slower code is generated). All values must be in the range 0-4095, 
(Again, slower code is generated for values greater than 255, ) 

The index has been shown as being specified by giving its fullword address. 
It is also possible to specify halfword, byte, and register indexes as follows; 


DOCASE 

I 


or 

DOCASE 

(I.W) 

DOCASE 

(I.H) 

DOCASE 

(I.B) 

DOCASE 

(3) 


or 

DOCASE 

(R3) 


j- Fullword 

Halfword 
One byte 

I Register index 


Note that the latter indicates the index itself (not the address of the index) is in 
register 3 (or whatever register R3 is equated to). 

The normal expansion of the DOCASE uses a branch vector to branch to the 
proper CASE block. Two special operands are provided to allow better code to 
be generated in certain special cases: 

• Code "DOCASE I, SPARSE" when the number of values specified on the 
CASE blocks is small compared with the range of zero to the largest 
value accepted. By coding SPARSE, each CASE tests for the values ap- 
propriate to it and passes control to the next CASE on failure using a 
compare -and -branch sequence. 

• Code "DOCASE I, SIMPLE" when each CASE block is for a single index 

value and those value are the numbers 1, 2, 3, for small n. By 

coding SIMPLE , the index is loaded into register 1 and each CASE does 
a BCT against register 1 to the next case. This is usually best when 

o < 6 (if no MISC CASE is present) or « < 12 (with a MISC CASE) . 

In addition, the DOCASE macro will automatically optimize for the case 
where all of the CASE macros specify operands which are exact multiples of 4. 
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Another form of the DOCASE allows the selection to be performed on the 
basis of character strings. The CASE macros may specify selection values in 
any of the ways shown; 

DOCASE (OPCODE , 4) 

CASE =C’ADD^’ (Literal) 


ESAC 

CASE C’REPL’, 'CHNG' (Literal without leading or "=C") 


ESAC 

CASE ('FIXl ’ . 'FIX9’) , »FK^’ (A range FIXl , FDC2 FDC9 or 

the literal =C'FIX, ,’) 

ESAC 

CASE SPECLOP, 'NONE*,X*00000000' (An address containing a 

character string, "NONE”, 
or the literal =X*00000000*) 

ESAC 

ESACOD 

Yet another form of the DOCASE allows selection based on arbitraiy con- 
ditional expressions. 

DOCASE 

CASE (LTR,3,3,Z) 


ESAC 

CASE (CR,l,2,EQ),OR,(TM,FLAG,X'80',O) 


ESAC 

CASE (S,5,WORD,P) 


ESAC 

ESACOD 
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The conditional expressions are evaluated until one is found that is true. That 
case block is then executed and the rest are b 5 T>assed. Note that no index is 
specified. 

Any of the previous special fomas may include a miscellaneous case. 

One other pair of options is provided which is of use mainly when the 
DOCASE is implemented hy a branch vector (that is, when an index is specified, 
neither SPARSE nor SIMPLE is specified, and one or more CASEs are for self- 
defining terms in the range 0-255) and no miscellaneous case is present, although 
it may be specified in any DOCASE. The options IF ANY or ONLY may be coded 
as the second or third operand. When IF ANY is specified, code is included to 
bypass all CASE blocks if the index is out of the range of the branch vector. (”Do 
case I, if any such case exists; else do nothing.") When ONLY is coded, the 
range test is not included and the result if the index takes on an out -of -range 
value is undefined — and invariably disasterous. ("Do case I, and only such 
cases can exist.") If neither IF ANY nor ONLY is coded, the tests are generated. 
ONLY is invalid when a MISC CASE is present. IF ANY and ONLY may be coded 
with the non-branch vector forms of the DOCASE , but since the test occurs auto- 
matically and entails no overhead, it will be ignored. 

The ESAC macro marks the end of a CASE block; it may also be coded as 
CAS END or BLEND. The ESACOD macro marks the end of the entire DOCASE. 

It may also be coded as DOCASEND or BLEND. 

Abnormal block exit 

Another convenience macro is the EXIT. It causes immediate transfer to 
the end of some containing block. It is particularly useful in situations such as 
searching or making error terminations in a loop. 

DOINFILE DO WHILE, (TM, FLAG, EOF, Z) 

<Read a control card> 

SCAN DO WHILE, (TM, FLAG, ENDOCARD,Z) 


WHOOPS IF (CLI,DELIMITR,C*,',NE) 

<Print "BAD DELIMITER" message> 
EXIT 
FI 


OD 

OD DOINFILE 
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In this code segment, a delimiter other than the comma will cause abnormal 
termination of the control card scan loop after printing a message. Since the 
EXIT macro has no operand, the exit is to the end of the block containing the 
block containing the EXIT (the surrounding block whose nest level is one less 
than the current nest level; in our example, the block SCAN). Any surrounding 
block's name may be specified as the EXIT'S operand to cause transfer to the 
end of that block. In our example, addii^ the operand DOINFILE to the EXIT 
would skip the rest of the input when the error occurred . 

Any code immediately following the EXIT macro cannot be reached, so the 
EXIT is usually the last instruction of an IF block as shown. Any instructions 
(even other blocks) could appear in the IF block labeled WHOOPS. The case 
where the only instruction in the IF block is the EXIT appears so frequently that 
a special form is provided to simplify its coding. We could have written the IF / 
EXIT/FI as the single macro: 

IF (CLI , DE LIMITR, C ' , ' , NE ) ,'EXIT=SCAN 

or 

IF (CLI, DE LIMITR, C»,',NE),EXIT= 

This will cause control to transfer to the end of SCAN if the delimiter is not a 
comma. No FI need be coded (nor may it be) since the IF block is generated 
only long enough to perform the exit. 

One disadvantage of using an EXIT is that it is no longer possible to follow 
code backwards. By looking at the OD macro in our example, it is not immedi- 
ately obvious that there are two possible predecessors - the last instruction of 
the loop and the EXIT. In order to flag such occurrences, a warning message 
(MNOTE, severity 0) is generated at the end of any block which is the target of 
an EXIT macro to indicate the presence of the imexpected predecessor. 


At times, the only terminating condition for a loop will be that specified by 
an EXIT macro. In such cases, the DO can be specified as 

DO FOREVER 

or just 

DO 

This will cause an infinite loop to be generated which can be terminated only by 
the inclusion of an EXIT. 
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Another situation which frequently occurs in search situations is that two 
blocks exist, one of which is to be performed if the search is successful, an- 
other if it is not. Using only the macros we have discussed so far, we could 
code this in the style of the block shown below, which updates the count in an 
identifier table if the required entry is present, otherwise it adds a new entry 


UPDATE BLOCK 
LA 
L 

SEARCH DO 

IF 

A 

ST 

EXIT 

FI 

L 

OD 

MVC 

ST 

BLEND 


1.1 

2,IDTAB 

WHILE, (CLI, 0(2), X’00',NE) 

(CLC,ARG(8),0(2),EQ) 

1 , 8 ( 2 ) 

1 , 8 ( 2 ) 

UPDATE 

2 , 12 ( 2 ) 

0(8,2),ARG 

1 , 8 ( 2 ) 

UPDATE 


Put a 1 into register 1. 
Point to first entry. 
Null entry indicates 
table end. 

If entry matches ARG: 
Increment 
count. 

Break out of block. 

Advance to next entry. 

Argument not in table; 
add it at end with count 
of 1. 


The BLOCK UPDATE is defined strictly to allow the EXIT to occur properly. 
An alternative form is produced by using the ATEND and ONEXIT macros: 


SEARCH 


LA 1,1 
L 2,IDTAB 

DO WHILE(CLI,0(2),X’00*,NE) 

IF (CLC,ARG(8),0(2),EQ), 
L 2,12(2) 

ATEND 

MVC 0(8, 2), ARG 
ST 1,8(2) 

ONEXIT 

A 1.8(2) 

ST 1,8(2) 

OD 


Put a 1 into register 

1 . 

Point to first entry. 
For all entries in 
table: 

SEARCH Exit on hit. 

Advance to next entry. 
Not found: 

Add new entry. 

Set count to one. 
Found; 

Bump 

count. 


The looping segment of the block is the IF and load instructions which follow 
the DO. If the loop terminated normally, (that is, because of the DO macro’s 
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test), the AT END code segment will be executed; if the loop terminates abnor- 
mally (due to some EXIT being executed for the DO), the ONEXIT segment will be 
executed. The flow chart below shows the relationship of the various blocks. 



The ATEND and ONEXIT may be coded in either order. Each is optional. 
The name of the active DO block may be specified as an operand of either or 
both as a check. ONEND may be used in place of ATEND; ATEXIT may be used 
in place of ONEXIT . 

Defining modules 

To aid stepwise refinement, it is desirable to have a simple method for de- 
fining modules which entails a minimum of execution overhead and provides a 
maximum of module independence. Such modules normally are called proes (for 
procedure), involve about a page of code, and invoke other procs via a calling 
sequence. 
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The macros PROC and CORP are provided to delineate such modules. 
There are two types of PROCs: the normal type involves minimal overhead 
(normally just the saving and restoring of registers) and is used for the major- 
iiy of modules created during the stepwise refinements; the other involves 
standard OS linkage conventions and is usually used for the main proc of the 
CSECT or other places where the evoking routine is expecting OS linkage. 

The simplest non-OS proc is coded as; 

X PROC 


CORP 

The PROC macro saves registers 14 through 12 (that is, registers 14, 15, and 
0 through' 12) in an in-line save area of fifteen words and branches around the 
area. The CORP restores 14 through 12 and branches to the address in register 
14. Evoking the routine is accomplished by a simple 

BAL 14, X 

instruction. 

The basic form of the OS-linkage proc is; 

Y PROC LINKAGE=OS 


CORP 

The PROC macro now generates code similar to the IBM macro SAVE . The 
assumption is made that register 15 is pointing at the PROC macro. A branch 
is made around an in-line identifier which is taken from the label field of the 
PROC. Registers 14 through 12 are saved in the previous save area, pointed 
to by register 13. A new 18 word in-line save area is provided and chained to 
the previous save area. A "USING" is issued for register 13 to allow it to be 
used as a base register for the module’s code as well as a pointer to the current 
save area. Register 1 is not modified by the macro. The corresponding CORP 
restores register 13 to point to the previous save area, restores all the registers 
except 15 which is set to zero as a return code, stores X'FF' as the high-order 
byte of word four of the old save area, and branches to the address in register 
14. Evoking the OS proc may be accomplished by using the IBM CALL macro. 
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A number of operands are provided on the PROC and CORP macros to ex- 
tend or modify these basic capabilities for both OS and non-OS procs , although 
it is expected that these defaults will often suffice. 

If a proc (particularly a non-OS proc) modifies no registers or if registers 
are expected to be volatile across the proc's call, coding SAVE=NONE as a 
PROC operand will omit register saving and restorii^. A register or range of 
registers may also be coded as 

SAVE=3 


or 


SAVE=(15,7) 

to cause limited saving and a correspondingly smaller save area. These reg- 
isters (as all registers specified for the STRCMACS) may be specified symboli- 
cally. For example: 

PROC SAVE=(R5 , LAST) 


R5 EQU 5 

LAST EQU 9 

The range must be a sub-sequence of 14 through 12 (that is , specifications 
such as SAVE=(0,15) are invalid). 

Normally, all the registers saved will be restored by the CORP macro. 
The restore can be limited to a sub-sequence of those saved by coding; 

CORP KESTOB.E={ first, last) 

or limited to a single saved register by coding 

CORP RESTORE=reg 

An additional mechanism is provided to allow the specifying of a list of 
registers which are to be unrestored . It is often the case that the piurpose of a 
proc (again, mainly on non -OS procs) is to calculate some result and return it 
in some particular register. Here restoring that register would destroy the 
returning value. 

X PROC 


CORP RETURN=(2,7,9) 
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All the registers (except 13) are saved by the PROC macro in this example. All 
the registers except 2,7, and 9 are restored by the CORP; 2,7, and 9 will be 
returned containing the values calculated by the PROC. The registers specified 
by the RETURN= operand must be registers which would have otherwise re- 
turned. For example, in 

CORP RESTORE=(2,7),RETURN=(5,9) 

register 9 need not and must not be specified as a returning register, since it 
is not among those indicated to be restored. The specification of 5 is proper. 

Two other suboperands of SAVE= are provided for OS-linkage procs to 
specify how the new save area is to be provided. The examples up to now have 
all used an in-line save area which is generated by default. If the user wishes 
to provide his own save area, he may do so by coding its label as the third sub- 
operand of the SAVE: 

Z PROC LINKAGE=OS,SAVE=(,,MYSAVE) 

PROCl PROC LINKAGE=OS,SAVE=(14,2,MYSAVE) 

The user’s save area is assumed to be addressable by the base registers indi- 
cated by the BASE= operand, to be discussed below. 

If the proc is to be reentrant or recursive, a dynamic save area is re- 
quired. To specify this, code 

SAVE=(, ,DYNAM) 

A GETMAIN will be issued for the save area and the coirresponding FREEMAIN 
will be issued by the CORP. 

By coding SAVE=(, ,NONE), the user requests that the registers be saved 
in the old OS save area, but that no new save area be obtained. 

OS-linkage save areas are normally 18 words long. To specify another 
size, give the length (in words) as the fourth suboperand of SAVE, either as a 
decimal integer or symbolically. (For in-line save areas, the symbolic length 
must be a previously defined symbol. ) A typical use for a reentrant program is: 

RENTPROC PROC LINKAGE=OS,SAVE=(, ,DYNAM,WORKSIZE) 

USING WORKSE CT , 13 
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WORKSECT DSECT 

DS 18F New save area. 

. Other work variables. 

WORKSIZE EQU (*-WORKSECT+3)/4, Length, in words, rounded up. 

This obtains core for the dummy section WORKSECT and provides addressabil- 
ity. Dynamic save areas cannot be specified for non-OS linkage procs; but 
since in-line save areas are generated by default, SAVE=NONE must be speci- 
fied on all non-OS procs within reentrant or recursive code. 

The in-line identifier generated for OS-linkage procs containing the proc’s 
name may be modified by using the ID= keyword of the PROC macro. By cod- 
ing ID=NONE, the identifier (and the branch around it) will not be generated. 

By coding ID=* on a non-OS proc , the proc name will be generated as for OS 
procs. A character string other than the proc name may be specified for either 
type of proc by coding 

TD= char-string 

Surrounding quotes may be specified on the character string where macro syn- 
tax requires (as when the string contains blanks or commas). 

A base register is provided by default for OS procs. With the normal in- 
line save area, register 13 serves this function. If the user provides his own 
save area or requests a dynamic one, register 12 is the default base register. 

To specify the loading of a base register other than the default (or to request a 
base register load for non-OS procs), use the BASE= keyword, as: 

PROC BASE =7 

In this case, register 7 will be loaded and a USING will be issued. Multiple base 
registers may also be specified. For example, 

PROC BASE=(7,8,9) 

will cause register 7 to be loaded with an address within the macro, 8 to be 
loaded with that address plus 4096, 9 with that address plus 8192, and a USING 
will be issued for the three registers. By omitting the first register, the de- 
fault register will be used as the first base register. For example: 

PROC LINKAGE=OS,BASE=(,10,9) 
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will use 13 as the first base register and 10 and 9 as the second and third. Reg- 
ister 13 should not be explicitly listed as an operand of BASE=. 

To bypass base register loading for OS procs, use BASE=NONE. 

Although a USING is issued for each base register, no DROPS are issued 
during the corresponding CORP. It is the user's responsibility to be sure 
DROPS are issued at such times as are necessary to prevent invalid code. In 
most cases , this only requires providing total addressability at the entry to the 
main proc and never changing or DROPping any base registers. 

The main proc of an assembly usually is the first proc and uses OS linkage. 
By coding 

X PROC LINKAGE=(OS,CSECT) 

a CSECT pseudo-operation is generated with the name X. LINKAGE=(, CSECT) 
may be used to define a non-OS proc as a CSECT, if desired. Following the 
CSECT pseudo-op, a "USING *, 15" is also generated to provide addressability 
during the macro. A "DROP 15" is generated at the end of the PROC macro. 

If the CSECT operand is not specified, the user is expected to provide address- 
ability and have a valid outstanding USING instruction. 

The STRCMACS, like any macros, must use certain registers as work reg- 
isters. Normally, only registers 0 and 1 are vulnerable to destruction by the 
STRCMACS. For OS-linkage procs, however, register 1 is typically used to 
point to a parameter list. As a result, register 2 is used as a second work reg- 
ister. The user may specify that some other register be used as a work register 
in place of the default (register 2 for OS procs, register 1 for non-OS procs) by 
coding 

PROC WORK=5 

or the like. By using WORK=NONE , the default will be used, but will be re- 
stored in the code generated by the PROC macro. In any case, register 0 is 
still volatile. 

Register 15 is loaded with a zero by default in the CORP expansion of all 
OS procs. To specify a different return code (or any return code for non-OS 
procs), use: 

CORP 'RC= value 
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If the value to be returned is contained in a register, use: 

CORP RC=(reg) 

By coding RC=NONE , no special return-code processing is performed; the value 
returned in register 15 will be determined by whether it is being restored, as 
for any other register. 

The last instruction normally generated by a CORP is a 
BR 14 

to return to the address in register 14. To cause a different register to be used 
for the subroutine linkage, use: 

CORP -LmK=linkreg 

By coding LINK=NOJffi , the returning branch will be omitted and control will 
fall out the bottom of the macro. 

This allows two methods of proc linkage. The normal method is to use the 
standard execution-time linkage: 

A PROC LINKAGE=(OS,CSECT) 

BAL 14, B 

CORP A 
B PROC 

BAL 14, C 

CORP 
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C PROC 


CORP 

The alternate method is to define the procs as user macros to perform the 
linkage at assembly time: 

MACRO 
BMAC 
B PROC 


CMAC 


(*) 


CORP B , LINK=NONE 
MEND 


MACRO 

CMAC 

PROC 


CORP LINK=NONE 
MEND 

A PROC 


BMAC 


CORP 

This causes the macro BMAC to be expanded at the point (**), During that 
expansion, the macro CMAC is evoked when line (*) is generated. Since LINK= 
NONE is specified on the macros' CORPs, control falls outthebottom of each macro. 


LINKAGE-(OS , CSE CT) 
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The macros PROCEND and BLEND may be used in place of CORP, 

Special services 

Two minor services are provided by the STRCMACS which may be useful 
from time to time. 

As was pointed out earlier, any block-terminating macro which is the target 
of an EXIT receives a message warning of the unexpected predecessor instruc- 
tion. This message normally receives a severity code of 0, It therefore does 
not affect the execution of later job steps (such as linkage editing), but a refer- 
ence to the message does appear in the list of diagnostic messages. The user 
may change the severity of the EXIT message by coding. 

PROC EXlT=severity 

on any PROC. All EXIT messages thereafter will receive the indicated severity 
code. The severity must be specified as either an integer from 0 to 4095 or as 
an *, (the latter avoiding the reference to the message in the diagnostic message 
list). 

The macro FINAL may be coded after all other code to provide a check that 
all blocks have been terminated. This use of the FINAL macro is optional. An- 
other use is described in the next section. 

STRCMACS debugging aids 

A number of debugging aids have been designed into the structured macros. 
Although some of the options exact fairly heavy penalties in memory or execu- 
tion time requirements, the ease with which the debug options may be turned on 
and off allow large amounts of execution information to be gathered with a mini- 
mum of programmer effort for the isolation of any given bug. 

The various options may be specified on any PROC macro by coding: 

PROC DE BUG=( list of options) 

In the list, one can specify that various options be turned on (or off); the indi- 
cated options will then be on (or off) for the duration of the proc. At the CORP, 
the status of the options will revert to their status before the PROC macro. To 
avoid this restoration, one may code "GLOBAL" or "GBL" in the list of options. 
One may also code "ALL" or "NONE" as options indicating that all options are 
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to be turned on or off, respectively. After the ALL or NONE, exceptions may 
be listed. For example: 

A PROC 


CORP 

B PROC DEBUG=(BL0CKNAMES,PR0CTRACE,GBL) 


C 


CORP B 

PROC DEBUG=(NOPROCTRACE , PROCCOUNTS) 


D 


CORP C 

PROC DEBUG=(ALL,NOSAVETRACE) 


CORP 

In the above code, proc A requests no debug processing; all debug options re- 
main off. Proc B turns on block -names and proc -tracing (discussed below) , and 
specifies that the CORP B is not to revert the options to their former state (all 
off). Proc C turns off proc -tracing and turns on proc -counting. At the CORP 
C, the options revert to those specified in proc B. Proc D turns on all options 
except the save -trace. 

We will now discuss each of the options in turn. 

The LISTBLOCKS option causes the name, sequential number, and static 
nesting depth of each block to be printed on the assembly source listing as com- 
ment messages (severily "*") at the beginning and end of each block. 

The PROCNAMES options forces all proc names to be generated as in-line 
character constants as thov^h ID=+ had been coded on every PROC macro. 

These names make it easy to find the corresponding code quickly in dumps . The 
process can be carried a step further; by turning on the BLOCKNAMES option, 
all blocks will contain such in-line identifiers. This is mainly of use with the 
BLOCKCOUNTS option. 
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The PROCCOUNTS and BLOCKCOUNTS options cause various statistics to 
be maintained on the execution of proc blocks or all blocks, respectively. The 
statistics maintained are: 

• On PROCs— The number of times the proc has been executed. This 
count is kept if either PROCCOUNTS or BLOCKCOUNTS is specified. 

• On IFs— The number of times the condition was evaluated as true. 

• On DOs— The number of times the loop body has been executed during the 
run (the overall loop count) and the number of times the loop body has 
been executed since the DO was most recently entered (the current loop 
count). 

• On DOCASEs— The ordinal number of the last nonmiscellaneous case 
executed; note that this is not necessarily the value of the most recent 
index. If the most recent execution caused the miscellaneous case to 
occur, the value 255 (X’FF*) is stored. 

• On CASEs— The number of times this case has been executed. 

• On BLOCKS— The number of times the block has been executed. 

If both BLOCKNAMES and BLOCKCOUNTS are coded, the counts are stored 
immediately following the block names* to aid locating them in dumps. 

By coding the option PROCTRACE, a record of the last 257 procs executed 
is maintained. The record is kept as a 258-byte vector of one-byte binary num- 
bers. (The 258th byte is not used; it always has the value X'FF'. ) As each 
proc is entered, the vector is shifted one to the left and the proc's identifying 
number is stored in the 257th byte. The proc’s identifying number appears not 
only in the instruction which stores it into the vector, but also in all labels gen- 
erated by the PROC and CORP macros when PROCTRACE is turned on. These 
labels are of the form ^%~Phhxxx'' where the hh is the proc's identifying number 
(in hex) and xxx varies with the particular label. The vector itself appears as: 

DC C’lTRACE' 

$TRACE DC 258X'FF' 

and is generated in the first proc which requests PROCTRACE. 

A free piece of debuggii^ information is provided the in-line save area 
of the non-OS procs. The values in all registers specified in the SAVE=operand 
(or by default, all registers) are stored in this area. During the CORP, any 
registers specified in the RETURN=operand (and register 15, if a return code 
is provided) are individually stored into the PROC's save area. Then the range 


*An exception to this is proc counts, for reasons which will be discussed later. 
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of registers indicated by theRESTORE= operand (or all the saved registers, by 
default) are reloaded from the PROC’s save area. As a result, the save area 
will contain the registers on entry to the proc or those beir^ returned by the 
proc or some mixture depending on whether the dump occurred before, after, 
or during CORP register restoring. 

By coding the debug option CORPVALUES, additional save areas are pro- 
vided, In addition to the PROC's main save area, a save area is generated by 
the CORP macro (called the CORPVALUES save area) and all the registers (14 
through 12) are stored before doing register restoring to provide a copy of the 
values calculated by the proc. If one or more registers are to be returned 
(either by beii^ listed in the RETURN= operand or because the RC= operand was 
specified), a third save area (called the BACK save area) is provided. The 
PROC’s main save area is copied to the BACK save area and the value to be 
returned in the RETURN= registers (and in 15, for RC=)are stored into it be- 
fore loading all the registers in the RESTORE^ range. Hence, the PROC’s main 
save area contains the values in the registers the last time the proc was evoked, 
the CORPVALUES save area contains the values in the registers before register 
restorii^ the last time the proc completed processing, and the BACK save area 
contains the values returned to its caller (if different from the values saved at 
proc entry). 

These various save areas provide a wealth of information, but locating par- 
ticular values can be a painstaking and somewhat error -prone process. A final 
debug option provides the mechanism for having these areas formatted auto- 
matically in OS dumps. To request the formatting, the first proc must be an 
OS-linkage proc and the SAVE TRACE debugging option must be turned on in it. 

In addition the FINAL macro must be coded following the last proc. The SAVE- 
TRACE option causes all non-OS save areas to be generated as full 18 word 
save areas linked statical^ (that is , at assembly time) according to OS conven- 
tions. On entry to the first proc, the entire list of non -OS save areas are linked 
between the old (caller’s) OS save area and the new save area. Since these 
save areas are formatted like OS save areas, they will be printed in the save 
area trace portion of the OS dump. 

Word 1 of each non-OS save area is used to identify it. The high-order 
byte indicates the type of save area as follows; 

X'FF' or X'FE’: The PROC's main save area: The bjde is initialized to 
X'FF’; it is set to X'FE' each time the proc is entered and is reset 
to X’FF' each time the proc is "finished" (each time it returns). 

X'FC’; The CORPVALUE's save area, for those procs in which the 
CORPVALUES option is turned on. 
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X'FB’: The ,BACK save area for those procs in which the CORPVALUES 
option is turned on and in which one or more registers are 
returned. 

Byte two of word one contains the one byte hex proc identifying number used in 
that proc's labels and (if PROCTRACE is turned on) for proc tracing. The last 
half of word one of the PROC's main save area contains the proc count (if 
PROC COUNTS or BLOCKCOUNTS is turned on). 

Word one of the first OS save area contains the address of the trace vector 
(if PROCTRACT is turned on). 

The above may seem somewhat confusing, but the example on the following 
page should clear it up somewhat. 

When OURPROG is called it evokes SUBX and SUEZ each twice. On its 
second execution, SUBZ evokes SUBY which calls NEXTPROG which abends. 

On the following pages the assembly , a diagram of the debuggii^ blocks , and a 
part of the dump are shown. Note the save areas formatted in the dump and the 
trace vector and block counts. 

It should be noted that turning on all debugging facilities can double the 
length of a CSECT or more. In programs in which these aids are to be used 
from time to time, one must be sure to set aside sufficient registers to be used 
as base registers to provide addressability. 

Addressability, labels, and reentrant code 

Care must be taken that sufficient addressability is provided by the base 
registers to handle references made by the structured macros. In particular, 
it should be noted that since literals are generated by some PROC forms and by 
character string CASEs, the literal pool must be addressable to these macros. 
In addition, CORPs must be able to address their own PROCs. 

All labels generated by the STRCMACS (except those specified by users in 
macro name fields) begin with the "$". Users should not use such labels to 
avoid conflicts. 

Reentrant code is generated except for in-line register savii^ and most of 
the debug aids. To bypass the former, use SAVE=(, ,DYNAM) on OS procs and 
SAVE=NONE on non -OS procs. To bypass the latter, do not use the debug aids. 
(Sorry about that!) 
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EX&iPLE OP DBBOG P4C1LITIES 


PAGE 


2 


LOC OBJECT CODE 

IDDai 1DD32 

5TBT SOUBCE STATEBBBT 



2 OajiPHOG 

PROC 

LINKAGE= (OS, CSECT) ,DEBOG= (ALL, NOLISTBLOCKS , GLOBAL) 

BHOTE 

3 


4, STRCB103 ilRHlBG— SA7ETEACE REQOIPES "PINAL** HACRO 



4 


★, STRCB1O0 PFOC OURPfiOG, DEBUG ID=I»01* 

QOOOOO 


5*OOBPfiOG 

CSECT 

000000 


6+ 

0SI»G 

*,15 

000000 47P0 FOOC 

ooooc 

7* 

B 

$P0UA 

000004 07D6B4D907D9D6C7 

8* 

DC 

ALl (7) ,CL7*0URPB0G* 

OOOOOC 90BC DOOC 

COOOC 

9*$P011A 

STB 

14, 12, 12(13) 

000010 


10^ 

CHOP 

0,4 

000010 4520 P05C 

0005C 

11* 

BAL 

2,$P01Bfi 

000014 0OO0007E00O00O00 

U+'IPOIISV 

DC 

A (STRACE) , (18-1) P*0» 

00005C 50D0 P1PC 

OOIFC 

13<f AP01BB 

ST 

13,SPIRSTSV+4 

000060 D203 DOOB P4Ad 

OOOOa 03418 

14+ 

H7C 

0(4,13) , = A (SFIRSTSV) 

000066 5800 P4AC 

C04AC 

15+ 

L 

13,=A($LASTSA7) 

000061 502D 0008 

OQQQd 

16+ 

ST 

2,9(13) 

00006E 50D2 0004 

03004 

17+ 

ST 

13,4 (2) 

000072 18D2 


18+ 

LR 

13,2 

000014 


19 + 

USING 

SPOIISV, 13 

000074 47PQ 016E 

00182 

20+ 

B 

SP01BE 

000070 5BB3D9C1C3C5 


21 + 

DC 

C*STHACE* 

00007E PPPPPPPFPFPPFPPP 

22+lTPlCE 

DC 

258X»FP* 

000100 0000 


23+1P01PCT 

DC 

H’O* PBOC COUNT 

000182 D2PP D06& 0068 

0007B 0007F 

24+$P01EE 

M7C 

$TBACB(256) ,iTRACB+1 

000188 9201 D161 

0017s 

25+ 

M7I 

ITHACE+256,X*01* 

00018C 4620 D16C 

0 3180 

26+ 

LK 

2,$P01PCT 

000190 4122 0001 

00001 

27+ 

LA 

2, 1 (2) 

000194 4020 D16C 

00180 

28+ 

STH 

•2,$P01PCT 



29+ 

DROP 

15 



30 * 

* 




31 ♦ 

• 


000190 4150 0002 

€0002 

32 

LA 

5,2 



33 

DO 

UNTIL, (BCT, 5) 

00019C 1011 


34+ 

SR 

1#1 

00019B 4010 DUE 

001C2 

35+ 

STR 

1,$200L 

000112 4B1D DUE 

001C2 

36+I2BEG 

LH 

1,S2DOL 

000116 4111 0001 

OOOOl 

37+ 

LA 

U 1 (1) 

000111 4010 DUE 

001C2 

38 + 

STH 

1,X2DOL 

00011E 4810 D180 

001C4 

39 + 

LH 

1,S2DTR 

0001B2 4111 0001 

00001 

40+ 

LA 

If 1 (1) 

0001B6 4010 D1B0 

001C4 

41 + 

StH 

1,$2DTB 

OOOIBI 47P0 D1B2 

001C6 

42+ 

B 

$2G0 

0001BB C2D3D2F2 


43 + 

DC 

C»fiLK2*,OH'0* 

0001C2 0000 


44+$2D0L 

DC 

H»0* CURRENT LOOP COUNT 

0001C4 0000 


45+32DTH 

DC 

H*0* OVERALL LOOP COUNT 

0001C6 


46+32GO 

DS 

OH 

000TC6 45E0 01d2 

0ai£6 

47 

BAL 14,SDBX 

0001CA 45SO D33C 

00350 

48 

BAL U.SUBZ 



49 

OD 


0001CE 4650 D18B 

OOU2 

50+ 

BCT 

5,S2BEG 



51 ♦ 

; 




52 ♦ 

: 




53 

COBP 


0001D2 5BD0 D1EB 

COIFC 

54+ 

L 

13,SFI&STSV+4 

0001D6 1BPF 


55 + 

SB 

15,15 

0001D8 50PD 0010 

00010 

56+ 

ST 

15,16(13) 

0001DC 908C DOOC 

ooooc 

57+ 

LH 

14, 12,12(13) 

0001E0 92PF DOOC 

ooooc 

58+ 

H7I 

12 (13) ,X*FP* 

0001E4 07PE 


59+ 

BB 

14 


23 JAE 74 
00004000 


00005000 

0OOO6QOO 

00007000 

00008000 


00009000 

00010000 

00011000 

00012000 

00013000 

00014000 
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LOC OBJECT CODE ADD31 ADD32 STMT SOURCE STATEMENT 23 JAN 74 






61 3UBX 

PROC 

SAVE- (3,5) 00016000 





62 


STHC8108 PROC 5UBX, DEBUG ID=X»02* 

0001E6 

47P0 D1DA 


001EE 

63+SUBX 

B 

$?02AA 

0001EA 

B2B4C2S7 



64 + 

DC 

CL4*SUBX* 

0001EE 

90EC D1P0 


00204 

65+SP02AA 

STM 

14,12,$P02SV+12 

00D1F2 

47PO D22C 


C0240 

66* 

3 

$P02DD 

0001F8 




67+$P02SV 

DS 

OF 

0001P8 

PP020000 



68^ 

DC 

X*PP020000' FLAG (FF=FINI SHED , FE=EKTERED) , ID, COUNT 

0001F9 




69+iFIRSTSV 

EQU 

$P0 2SV 

aooiFc 

0000000000000270 


70 + 

DC 

A (0,$P02NXT) 

000204 

0000000000000000 


71 + 

DC 

(15) F»0* 

000240 

5810 D49C 


00430 

72+iP02DD 

L 

1, = A($TRACE) 

000244 

D2PF 1000 1001 

00 00) 

00001 

73 + 

MVC 

0(256, 1), 1 (1) 

00024A 

9202 1100 

00100 


74 + 

nvi 

25b (1) ,X»02* 

00024B 

4810 DIES 


OOlPA 

75 + 

L8 

1,$P02SV+2 

000252 

4111 0001 


00001 

76 + 

LA 

1,1(1) 

000256 

4010 D1B6 


OOlPA 

77* 

STH 

1 ,$P02SV+2 

00025a 

92PE D1E4 

001P3 


78 + 

ftVI 

SP02SV,X*FE’ 





79 + 

: 

00017000 





80 ♦ 

; 

00018000 

00025B 

5030 D484 


00498 

81 

L 

3,XID 00019000 





32 ♦ 

; 

00020000 





83 + 

; 

00021000 





04 

CORP 

SUBX 00022000 

000262 

90BC D268 


0027C 

35 + 

STM 

14,12,$P02CRP+12 

000266 

92PF D1E4 

001F9 


96+ • 

MVI 

$P02SV,X*FF< 

00026A 

9835 D204 


00210 

97 + 

LM 

3,5,$P02SV+32 

00026E 

07FE 



89 + 

BR 

14 

000270 




09+IPO2CRP 

DS 

OF 

000270 

FC020000 



90 + 

DC 

X»FC020000’ 

000270 




91+$P02NXT 

EDO 

$?02CRP 

000274 

000001P8000002C3 


92 + 

DC 

A ($P02SV,$P02FWD) 

00027C 

0000000000000000 


93 + 

DC 

15F*0* 



EXAMPLE OP DEBUG FiiCILITIES 
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OBJECT CODE 

ADDHl 

ADDR2 

STMT SOURCE 

STATEMENT 

23 JAN 74 






95 SUBY 

PROC 

D£BUG=NOCORPV ALOES 

00024000 






96 


♦, STRCB108 PROC SUBY, DEBUG ID=X’03» 


0002B8 

47P0 

D2AC 


CO2C0 

97+SOBY 

B 

SP03AA 


0002BC 

E2 24C2E8 



98 + 

DC 

CL4 *SUBY' 


0002CO 

90 SC 

D2O0 


002D4 

99+JP03AA 

STM 

14, 12,$P03SV+12 


0002C4 

47 PO 

D2PC 


003 10 

100 + 

B 

$P03DD 


0002C8 





101+$P03SV 

D$ 

OP 


0002C8 

FF030000 



102 + 

DC 

X*FF030000» FLAG ( PF=FINISHED , PB= ENTERED) , ID, COUNT 


0002C8 





103+5P02PWD 

EQU 

$P03SV 


0002CC 

0000027000000360 


104 + 

DC 

A ($P02CRP,$P03NXT) 


0002D4 

0000000000000000 


105 + 

DC 

(15) F*0» 


000310 

5810 

D4 9C 


004B0 

106+$P03DD 

L 

1,=A($TRACE) 


000314 

D2PP 

1000 1001 

00000 

00001 

107 + 

nvc 

0 (256, 1), 1 (1) 


00031A 

9203 

1100 

00100 


108 + 

rtvi 

256 (1) ,X’03* 


00031E 

48 10 

D2B6 


002CA 

109 + 

LH 

1,$P03SV+2 


000322 

4111 

0001 


90001 

110 + 

LA 

1, 1 (1) 


000326 

40 10 

D2B6 


002CA 

111 + 

STH 

1,$P03S7+2 


00032A 

92FE 

D2B4 

002C9 


112 + 

nvi 

$P03SV,X’PE* 







113 + 

1 


00025000 






114 ♦ 

; 


00026000 

OC032E 

5 0 30 

D488 


0049C 

115 

L 

3,YID 

00027000 






116 

CALL NEXTPROG 

00028000 

000332 

0700 




117 + 

CNOP 

0,4 


000334 

47P0 

D320 


003iC 

118 + 

B 

*♦8 BPANCH AROUND VCON 


000333 

00 000000 



t 19+IHB0040B 

DC 

V (NEXTPROG) ENTRY POINT ADDRESS 


00033C 

58P0 

D324 


00338 

120 + 

L 

15,IHB0040B LOAD 15 WITH ENTRY ADR 


000340 

05BF 




121 + 

BALR 

14,15 BRANCH TO ENTRY POINT 







122 * 



00029000 






123 * 



00030000 






124 

CORP 

RETURN=3 

00031000 

000342 

50 30 

D2D4 


302E8 

125+ 

ST 

3, SP03SY+32 


000346 

92PF 

D2B4 

00228 


126 + 

MVI 

$P03SV,X*FF’ 


OQ034A 

98EC 

D2C0 


002D4 

127 + 

LM 

14, 12,$P03SV+12 


00034E 

07PE 




128 + 

3R 

14 
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LOC OBJECT CODS IDDttl \DDfi2 STBT SOURCE STftTEMEKT 
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000350 

47P0 D344 

00358 

130 SUBZ 

131 

132^3UBZ 

000354 

E2B4C2E9 


133* 

000358 

90EC D358 

a036C 

134+FP04AA 

00035C 

47F0 D394 

003A6 

135+ 

000360 

000360 

FP040000 


136+SP045V 

137+ 

000360 

000364 

000002C90C000408 


138+iP03NXT 
139 + 

00036C 

0000000000000000 


140+ 

OOO3A0 

5810 D49C 

304B0 

141+ 5P04DD 

0003AC 

D2FF 1000 1001 00003 

00001 

142 + 

0003B2 

9204 1100 00100 


143 + 

0003B6 

4810 D34E 

OOJ62 

144 + 

0003BA 

4111 0001 

00001 

145 + 

0003BE 

4010 D34E 

00362 

146 + 

0003C2 

92PB D34C 00360 


147 + 

0003C6 

58 30 d48C 

004AO 

148 * 

149 * 

150 

0003CA 

1863 


151 

0003CC 

5950 D4A0 

004B4 

152 

153 + 

00O3D0 

4770 D3DA 

0033E 

154* 

0003D4 

4B10 D3D4 

00320 

155 + 

0003D8 

4111 0001 

00001 

156 + 

0003DC 

4010 D3D4 

€0333 

157 + 

0OO3E0 

47P0 D3D6 

0033A 

158 + 

0003EU 

C2D3D2F6 


159 + 

0003EQ 

0000 


160+$6IFC 

0003EA 

0003BA 

4520 D2A4 

002B8 

161+36GO 

162 

0003EE 

0003EE 

90BC D400 

004 14 

163 

164+36 END 

165 ♦ 

166 * 

167 

168 + 

0003F2 

D23B D448 D358 0045C 

0036;: 

169+ 

0003F8 

5060 0468 

0047C 

170 + 

0003PC 

92PF D34C 00360 


171 + 

000400 

902C D448 

0045C 

172 + 

000404 

07PE 


173* 

000408 

000408 

FC040000 


174+IP04CRP 
175 + 

000408 

00040c 

0000036000000450 


176+3P04NXT 

177+ 

000414 

OOOOOOOOOOOOOOOO 


178 + 

000450 

000450 

FB040000 


179+$P04BCK 

180+ 

000454 

0000040800000000 


181 + 

00045C 

OOOOOOOOOOOOOOOO 


192 + 


PROC 

*, STBCB108 PROC SUBZ, DEBUG ID-X'04» 

B SP04AA 

DC CLU’SUBZ* 

STB 14^12, IP04SV+12 

B $P04DD 

DS OP 

DC X»FF040000* FLAG <FP=FTNTSHED , PE=ENTERED J 

EQU ipoasv 

DC A ($P03SV,$P04NXT) 

DC (15)F'0* 

L 1,^A<$TRACS> 

MVC 0 (256, 1) , 1 (1) 

MVI 256 (1),X'04* 

LH 1,SP04SV+2 

LA 1,1(1) 

$TH 1,SP04SV42 

M7T $P04SV,X»FE» 


L 3,2ID 

LR 6,3 

IF (C,5, = FMMQ) 

C 5,=FM» 

BNE 36END 

LH 1,$6IFC 

LA 1,1(1) 

STH 1,S6IFC 

B $6GO 

DC C* BLK6* ,0H» O' 

DC H»0* IF COUNT 

DS OH 

BAL 14,SUBY 
FT 

DS OH 


CORP RBTURN=:6 

STH 14,12,3P04CRP*12 

niC $P04BCK+12 (15*4) , $P04SV^12 

ST 6,$P04BCK+44 

KVI $P04SV,X*FF» 

L« 14,12,$P04BCK*12 

BR 14 

DS OP 

DC X*FC040000* 

EQU $P04CBP 

DC A ($P0aSV,SP04BCK) 

DC 15P*0' 

DS OF 

DC X*FB040000» 

DC A ($P04CHP, IP04FWD) 

DC (15)F»0* 


ID, COUNT 


00033000 


00034000 

00035000 

00036000 

00037000 

00038000 


00039000 

00040000 

00041000 

00042000 

00043000 



example of debug PAcrLirxss 


LOC OBJECT CODE ADD51 


000450 

000000 

000496 

000496 B7S7E7E7 
00 00049c E0S8E8E8 

0004A0 E9E9E9B9 
0004A6 

0004A8 000001F8 
0004AC 00000450 
OOO4B0 0000007E 
D004B4 00000001 


\DDH2 STMT SOURCE STATEMENT 

13^ PINAL 

135+HLASrS AV SQU $P04BCK 

186<-3P04PWD EQU 0 

tQ7 DS OF 

188 XID DC C'XXXX* 

189 YID DC C*YyYY* 

190 2ID DC C»Z22Z* 

LTORG 

=A($PIRSTSV) 

=a($lastsav) 

=A($TRACE) 

195 ip t ^ t 


197 


END 
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23 JAN 74 
00045000 


00046000 

00047000 

00040000 

00049000 

00050000 


00052000 




49 









SAVE AfiEA TRACE 


6SFC VAS EVTBBEO VIA LINK AT EP OURPROG 

C«llar's Sffve irea 


SA 

155760 

HD 1 

00 000 000 

HSA 

00000000 

LSA 

00144CB8 

RET 

000184F8 

EPA 

01144AC0 

HO 

PD000008 



R1 

OO1557P0 

R2 

0003DP60 

H3 

5C03E528 

R4 

0002BE58 

H5 

0002C2C0 

R6 

0002A670 



R7 

00 02F 14 0 

R8 

0003B500 

R9 

0003FPF8 

RIO 

0003E528 

R11 

00000000 

R12 

4O1FE402 




T7DrT> tfTl 





_ Ignore tbesa; they are based on 




U ^ JT k# 

« £• n X 

Finishad 

iS nti U w ±a. LA 

^ ^SUBX 
F^020002-*^ 

ax 

Count ** 2 

OUI 

S PHOG-^-'"^ — ' 

what reg 15 points at 





SA 

144CB8 

HD1 

HSA 

00155760 

LSA 

00144D30 

BET 

A0144C8A 

EPA 

01144ACO 

RO 

FD000008 



HI 

00 000 002 

R2 

00000001 

H3 

5CO3E520 

R4 

0002BE58 

fi5 

00000001 

R6 

E9B9E9B9 



R7 

0002F 148 

R8 

0003E500 

R9 

0003FFF8 

BIO 

0003E528 

fill 

00000000 

R12 

401FE482 

GSFC 

HAS 

ENIEHED VIA CALL 

AT 

EP OURPROG 








CORPVALUES 

^SUBX 
PC 020 000 











SA 

144D30 

HD1 

HSA 

001 44CB0 

LSA 

00144D88 

BET 

A0144C8A 

EPA 

01 144AC0 

RO 

FD000008 



R1 

00000002 

R2 

00000001 

R3 

E7E7E7B7 

B4 

0002BB58 

B5 

00000001 

R6 

B9E9E9E9 



R7 

0002F148 

R0 

0003E500 

R9 

0003FFF8 

RIO 

0003B528 

R11 

oooooooo 

R12 

401FE482 

GSFC 

HAS 

ENTERED VIA CALL 

AT 

EP OURPROG 








Entered 

^ ^SUBY ^ Count =1 









SA 

144D86 

HD1 

FEQ30001>" HSA 

00144D30 

LSA 

00144E20 

RET 

80144BAB 

EPA 

01 144AC0 

RO 

FDOOOOO0 



R1 

00 000001 

R2 

00000001 

R3 

E9E9E9B9 

R4 

0002BE58 

R5 

00000001 

R6 

B9E9E9E9 



R7 

0002P148 

R8 

0003E500 

B9 

0003FFP8 

RIO 

0003E528 

R11 

OOOOOOOO 

R12 

401FE482 


Regs at entry to 0 U RPRQG 


Regs at entry to SUBX 


RegsatCORP SUBX 


Ref$ saved at entry to SU B Y 
possibly modified at CORP 


NoCDRPVALUESforSUBY AT EP OURPROG 




Entered 

^/SUB2 

^Count = 2 









O 

SA 

144E20 ¥D1 

FE 040 002^ 

HSA 

00144D88 

LSA 

00144EC6 

HIT 

A0144C8E 

EPA 

01144AC0 

RO 

FD000008 



R1 

00000002 

H2 

00000001 

H3 

5C03E528 

R4 

0002BB58 

R5 

00000001 

R6 

E9E9E9E9 



R7 

0002F148 

£0 

0003E5 00 

R9 

0003rFP6 

aio 

0003E528 

R11 

OOOOOOOO 

R12 

401FE482 


Regs at entry to SUBZ 


GSFC 

HAS 

ENTERED VIA CALL 

At 

EP OURPROG 


CGRPVALUES 

^SUBZ 
FC 040000 





SA 

144EC8 

HD1 

HSA 

00144E20 

LSA 

00144F10 



B1 

OOOOOOOl 

R2 

OOOOOOOl 

H*3 

E9E9B9B9 



B7 

0002F148 

R8 

0003E500 

R9 

0003FFF8 

GSFC 

HAS 

ENTERED VIA CALL 

AT 

BP OURPHOG 

SA 

BACK SA. 
144F10 HD1 

^ SUBZ 
FB 040 000 

HSA 

OO144EC0 

LSA 

80144AD4 



Rl 

OOOOOOOl 

B2 

OOOOOOOl 

S3 

5C03E528 


' 

R7 

0002F 148 

R8 

0003E500 

B9 

0003FFPe 

GSFC 

HAS 

ENTERED VIA CALL 

AT 

IP NEXTPROG 

OURPROG Main S.A.- 

^^Addrcis of trace vector 



SA 

144AD4 

HD1 

00 144B3E 

B5A 

00 144F10 

LSA 

80144F90 



Rl 

OOOOOOOl 

fi2 

OOOOOOOl 

H3 

E8E6E6B0 



R7 

0002F148 

R8 

0003E500 

R9 

OOO3FFF0 

NEXTPROG S.A. 







SA 

144F90 

WD1 

OOOOOOOO 

HSA 

60144AD4 

LSA 

OOOOOOOO 



B1 

OOOOOOOO 

B2 

OOOOOOOO 

B3 

oooooooo 



H7 

OOOOOOOO 

Rd 

oooooooo 

E9 

OOOOOOOO 


BET 

80144C8E 

EPA 

01 144AC0 

RO 

FD000008 

R4 

0002BE58 

R5 

00000002 

R6 

B9E9E9E9 Regs at CORP SUBZ 

RIO 

0003E528 

Rl 1 

OOOOOOOO 

fi12 

4O1FB402 


RET 

80l44CdE 

EPA 

01144AC0 

RO 

FD000008 

R4 

0002BE58 

r5 

00000002 

R6 

E 9£ 9£ 9£ 9 Rags returned by SU BZ 

BIO 

OOO3E520 

HI 1 

OOOOOOOO 

R12 

401FE482 


RET 

40144E02 

EPA 

00144F78 

RO 

FD000008 

R4 

0002BE58 

R5 

OOOOOOOl 

R6 

E9E9E9E9 Regs at CALL to NEXTPROG 

Bio 

0003B528 

R11 

oooooooo 

R 12 

401FE482 

RET 

OOOOOOOO 

EPA 

oooooooo 

RO 

OOOOOOOO 

B4 

oooooooo 

K5 

oooooooo 

R6 

OOOOOOOO 

Rio 

OOOOOOOO 

R11 

oooooooo 

R12 

OOOOOOOO 


INTERBUFT AT 144FE4 



FBOCEEDING BACK VIA REG 13 


SA 

144F90 

HD 1 

00000000 

HSa 

80 1 44AD4 

LSA 

00000000 

BET 

00000000 

EPA 

00000000 

so 

000 00000 


R1 

00 000 0 00 

R2 

00000000 

R3 

00000000 

£4 

00000000 

RS 

00000000 

R6 

00000000 



R7 

00000000 

B8 

00000000 

R9 

00000000 

RIO 

00000000 

R11 

00000000 

E12 

00000000 

GSFC 

HAS 

ENTERED VIA CALL 

AT 

£P NEKTPROG 







SA 

144AD4 

HD 1 

00 1U4B3E 

HSA 

001 44F10 

LSA 

0O144F9O 

RET 

40144E02 

EPA 

00144P78 

RO 

FD000008 


R1 

00000001 

R2 

00000001 

R3 

E8E8E8E8 

R4 

0002BE58 

R5 

00000001 

R6 

E9S9E9E9 



R7 

0002F148 

R8 

0003E500 

R9 

0003FFF8 

Bio 

0003E528 

H11 

00000000 

R12 

401FE482 

BEGS 

AT ENTRY TO 

ABEND 




- 








FLTR 0*6 


40P 1F0F2F9F3F 140 F0POFOFO40C9C5C5 


F1F0F2C940C9D5C9 OOOOOOOOOOOOOO 00 


BEGS 0-7 
BEGS 8-15 


FDO 00008 
0003E500 


00000001 

0003FFF8 


80144F90 

0003E528 


E8E8B8E8 

00000000 


0002BE58 

401FE482 


00000001 

80144F90 


fi9E9E9ES 

40144E02 


0002F148 

00144F78 


LOAD WODULE 


GSFC 


144AC0 

144AE0 

144BOO 

144B20 

144B40 

144C20 

144C40 


4 7FOFOOC 07D6E4D9 
40144E02 00144F78 
E9E9B9E9 0002F148 
D2Q3DQ08 F4A658DQ 


D7D9D6C7 90ECD00C 
FD000008 00000001 
0003E500 0003FFF8 
F4AC502D 0008SOD2 


452OF05C 

00000001 

0003E528 

00041802 


00144B3B 

E8E0E0E8 

OCOOOOOO 

47FQD16E 


00144F10 80144F90 
0002BS58 00000001 
401FS482 50D0F1FC 


IFFFPFFF FFFFFFFF 
IKES ' 144 B60- 144C00 S 
FFFFFFFF FFFFFFFF 


FFFFFFFF FFFFFFFF 
AME AS ABOVE 
FFFFFFFF FFFFFFFF 


FFFFFFFF FFFFFFFF 


FFFFFFFF FFFFFFFF 


5BE3P9C1 C3C51FFFF 


FFFFFFFF FFFFFFFF 
Trace vector 

FF010204 Q20403FF 


' lQOOt )2PF DQ6AD06^ 920lDlbA 4e20i;l6C 41220001 4020D16C 41500002 1B114010 

OURPROGcourit E401O D1AE4111 00014010 D1AB4810 D1B04111 00014010 D1B047F0 D1B2C2D3 

144C0O D2F2l0ro2ll2nny2l45£0 D1D245E0 D33C4650 D18E58D0 D1E81BFF 50FD0010 98ECD00C 

144CA0 92FFRfir'' ^'”='^47F0 D1DAE2E4 C2E790EC D1F047F0 D22CF1F6 FF020002 00 155768 

144CC0 0 014l!liI?5*’n®i1®4C8A 01144AC0 FD000008 00000002 00000001 5C03E528 0002BE58 

144CE0 00000001 E9E9E9E9 0002F148 00C3E500 0003FFP8 0003E528 00000000 401FE4B2 

144D00 5610D49C D2FF1000 10019202 11CO401O D1E64111 00014010 D1E692FE D1E45830 

144D20 D4049OEC D26092FF D1E49835 D204O7FB FC020000 00144CB8 00144D88 A0144C8A 

144D40 01144AC0 PD000008 00000002 00000001 E7E7E7E7 0002BE58 00000001 E9E9E9E9 

144D60 0002F148 0003E500 OOO3FFF0 0003E528 OOOOOOCO 401FE462 47F0D2AC E2E4C2E0 

144D80 90ECD2C0 47P0D2FC PE030001 00144D30 00144E20 80144EAE 01144AC0 FD000008 

144DA0 00000001 00000001 E9E9E9E9 0002BE58 00000001 E9E9E9E9 0002F148 0003E500 

144DCO OOO3FFF0 0003E528 00000000 40 1FE482 5810D49C D2FF1000 10019203 11004810 

144DE0 D2B64111 00014010 D2B692FE D2B45fi30 D4880700 47P0D328 00144F78 58F0D324 

144EOO 05EP5030 D2D492FF D2B498EC D2C007FE 47P0D344 B2E4C2E9 90EC0358 47F0D394 

144E20 FE040002 00144D88 00144EC8 A0144C8E 01144AC0 FC000008 00000002 00000001 

144E40 5C03E528 0002BE58 00000001 E9E9E9E9 ■ 0002F148 0003E500 0003FFF8 0003E528 

144E60 00000000 401FE482 5810D49C D2FP1000 10019204 11004810 D34E4111 00014010 

144E0O D34E92PE D34C5830 D48Cl8b3 5950D4A0 4770D3DA 4810D3D4 41110001 4010D3D4 

144EA0 47F0D3D6 C2D302F6 000145EO D2A490EC 0400D23B D448D358 B060D468 92FFD34C 

144EC0 98ECD448 07FE40F4 FC040000 00144E20 00144F10 80144C8E 01144ACO FD000008 

144EE0 00000001 00000001 E9E9E9E9 OOO2BE50 00000002 E9E9E9E9 0002F148 0003E500 

144F00 0003FFF8 0003E528 00000000 U01FE482 FB0400CO 00144BC8 80144AD4 80144C8E 

144F20 01144ACO PD000008 00000001 00000001 5C03E528 0002BE58 00000002 E9E9E9E9 


*-OO..OUaPROG 0 ♦ 

♦ XYY'L * 

♦ Z2ZZ.- 1. ..V -e.-v 

♦K- - 4 K. QJ,, [THAC£1 ., * 

♦ 


* 


. JK 


♦ 

J...J J ♦ 

*J... J 0L* 


. J Y. 


a m m m 0 3 m SUBX** JOcOA* ^ 

♦ V * 

♦ ZZSZ.* • •-8- -V U.* 

*Wa B a Kb . a JU a . K ♦ 


♦ xxxx zzzz* 

♦ a , 1.. ,v a 8. . V Ua.OK. SUBY^ 

♦..KaaOK ♦ 

♦ ZZZZ ZZZZ. . 1. a . 7. * 

♦ U-B.rt.K ♦ 

♦K Kb - a K... fta a a a OL OL* ♦ 

♦a a a aKMa. K. • aKaa-BOL- SUBZb .L. bOL. * 

♦ n ♦ 

♦a B V ZZZZ a -1- . .V. B a. 8. a V.* 

♦ U-BaWaK L ♦ 

♦La a aL.B. 11 M L. a .L;1 in* 

*- OLOBLK6b a a a K.a a MaK. 11- Lb. .Bb a aLa * 

♦ b-M-b. 4 ♦ 

♦ ZZZZ ZZZZb a 1- a * V, ♦ 

♦ 8- , V- a a a a ali H B * 

♦ V ZZZZ* 



APPENDIX A 


MA CR O INSTR UCTION DESCRIPTIONS 

This appendix contains the formal descriptions of all of the STRCMACS 
which may be coded by the user. The format is similar to that of "OS Data 
Management Macro Instructions" IBM Form GC26-3794-1. The reader is re- 
ferred to this publication for a description of the terms used and the format. 

The macros are listed in alphabetic order. 

Conditional Expressions 

A number of macros allow the coding of a group of operands as a condi- 
tional expression. This is a group of instructions and test conditions connected 
by the logical operators AND or OR. 

The basis for the conditional expression is the be -spec which indicates 
possible values of the 360/370’s condition code. The bc-spec may be any one 
of the following: 

• An assembly -language extended branch mnemonic excluding the initial 
"B" (for example, V'Z" from the mnemonic "BZ") or one of the following: 
"GT", "GE", "EQ", "LT", or "LE". Any of these may be optionally 
preceded by "REI>'’. 

• "MASK=" followed by an absolute expression (limited to 8 characters) 
defining the mask of a BC instruction. 

The lexical value of the bc-spec is true if the corresponding branch instruction 
would branch. (The branch instruction corresponding to "GT" is "BH"; for 
"GE", "BNL"; for "EQ", "BE"; for "LT", "BL"; and for "LE", "BNH".) 

A simple conditional consists of either a bc-spec alone or a condition code 
setting instruction and a bc-spec inclosed in parentheses and separated by 
commas: 

{opcode, opl, . . . , opn, bc-spedf or (bc-spec) 

The simple conditional has the logical value true if the bc-spec is true after 
executing the indicated instruction, if any. 

A conditional expression consists of one or more simple conditionals sep- 
arated by the logical connectors AND or OR (and also by the commas required 
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in macro syntax). In addition, angle brackets "<" and ”>"* may be specified 
as operands for the grouping of subexpressions. For example: 

5co«di, AND,<C , scond2,OK, scondS, ^ (*) 

The OR is of higher precedence than the AND. That is 

scondl , AND, scond2 ,OR, scond3 
is the same as 

<, SCO AND, scond2,y, OR, scondd 

The logical value of a conditional expression is true if the logical result of the 
indicated operations on the values of the simple conditionals is true . 

Only as many of the simple conditions are evaluated as are required to de- 
termine the value of the entire conditional expression. In the example {*) 
above, if the value of scondl is false , the expression must be false so the re- 
maining two simple conditionals are not evaluated. 


*The character “+” may be used in place of “ < ” and “/” in place of “ > 
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ATEND 


ATEND-Deflne Normal Loop Termination Code 


The ATEND macro is used to terminate loop definition (if not already ter- 
minated by an ONEXIT macro) and to define the start of the code segment 
which is to be executed when the current DO loop terminates normally (that is, 
by the condition indicated on the DO macro). The end of the ATEND code seg- 
ment is defined by the first ONEXIT or OD macro which occurs at the same 

nest level. 


ATEND 


\block-nam^ 


block-name 


sym 


Indicates that this ATEND is intended to be a part of the DO block named 
block-name. If coded, checks will be made to assure it is the current block. 
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ATEXIT 


ATEXIT-Defme Abnormal Loop Termination Code 

ATEXIT is provided as an alias for ONEXIT. See description of ONEXIT. 



% 
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BLEND 


BLEND— Terminate Current Block 

The BLEND (Block End) macro is used to terminate specifically the blocks 
defined by the BLOCK macro and to act as a generic alias for the FI, OD, 

ESA COD, ESAC, and CORP macros. The block termination code is generated 
and the current nest level is decremented by one. 


BLEND 


\block-nam^ \other-ops^ 


block-name 

Indicates that this BLEND is intended to match the BLOCK or other block- 
defining macro named block-name. If coded, checks will be made to assure 
it is the current block. 

other-ops 

Any operands which may be specified on the appropriate block-terminating 
macro may be coded. 
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BLOCK 


BLOCK—Define a Simple Block of Code 

The BLOCK macro defines the beginnii^ of a simple block of code. The 
current nest level is increased by one to cause the BLOCK block to be nested 
immediately inside any previous current block. The block is terminated by the 
first BLEND macro that occurs at the same nest level. 


\blname\ 


BLOCK 


blname 

The name associated with this BLOCK block and to be defined 
instruction generated . 


sym 

on the first 
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CASE 


CASE-Define a DOCASE Alternative 

The CASE macro defines the beginning of a block which is to be one of the 
alternatives for the immediately surrounding DOCASE block. The operands 
indicate those values which the index must have or a conditional expression 
which mUst evaluate to true for the CASE block to be executed. The current 
nest level is increased by one to cause the CASE block to be nested immediately 
inside the previous current DOCASE block. The CASE block is terminated by 
the first ESAC, CASEND, or BLEND macro which occurs at the same nest level. 



CASE 

FMISC 
index-list 
char-index-list 
L conditional-test ^ 



blname sym 

The name associated with this CASE block and to be defined on the first 
instruction generated. 

MISC 

Indicates this CASE is to be executed only if no other CASE applies. If this 
operand is coded, the surrounding DOCASE block cannot have the ONLY 
operand coded. 

index-list 

A list of values for which this case will be chosen. Each item in the list 
must be a self -defining term {e.g., 13 or X’lC*), an absolute expression 
{e.g., VAL where VAL EQU X’lO’), or a pair of such items enclosed in 
parentheses {e.g. , (13, VAL)) indicating that all values in the range <13, 14, 

15, and 16=VAL=X'10* in our example) are to select this CASE, index-list 
is invalid with the character-string or conditional -test forms of the DOCASE. 
If index-list is specified for a SIMPLE DOCASE , it must contain a single 
self-defining terna. All values must be in the range 0-4095. 

char-index-list 

A list of values for which this CASE will be chosen. This form is coded 
when the immediately surrounding DOCASE is of the character-string for- 
mat (indicated by the specification {index, length ) on the DOCASE macro). 
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CASE 


Each value in the list is interpreted as a character string and may be 

one of the following: 

• A literal (e.g., =C'ABC’ or =X»12CF’). 

• A literal without the leading equal sign (e.g . , C»ABC* or XU2CF»). 

• A string of characters in quotes (e.g., 'ABC or '12CF'-note that the 
latter is the same as C12CF', not X'12CF'). 

• An address at which there is a character string to be compared (e g 
ABCCODE Where ABCCODE DC CABC. Note that an operand such as 
15 would be interpreted as this form and would mean absolute address 
15— probably not what was intended). 

• Any two of the above enclosed in parenthesis indicating a range of values 
(e.g., (’ABC, 'ABE')). 


conditional-test 

Indicates this CASE is to be executed if this conditional expression evaluates 
to tr^ and no previous CASE of the same DOCASE evaluated as true. A 
conditional expression is coded when the immediately surrounding DOCASE 
contained no index specification. See beginning of this appendix for defini- 
tion of a conditional expression. 

If no operands are coded on this CASE macro, then no operands should be 
coded on any of the CASE macros which are immediately contained within the 
same DOCASE (excepting, of course, any MISC CASE). The first CASE will 
then be assumed to be CASE 1, the second to be CASE 2, and so forth. 
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CAS END 


CASEND— Terminate a DOCASE Alternative 


CASEND is provided as an alias for ESAC. See description of ESAC. 





CORP 


CORP— Terminate a Procedure 

The CORP macro defines the end of a procedure block. Code may be gen- 
erated to restore appropriate registers to their contents at the evocation of the 
proc, to pass back a return code, and to transfer into the evoking routine 
immediately following the point of evocation. The static block nest level is 
decremented by one. 


[labei\ 


CORP 


[proc-name'^ 

[rESTORE=(/?/-5/ [ , last ] )] 


[return =reg-list] 



'none' 


value 


. ( reg) , 



LINK= 


NONE 

linkreg 


label 


sym 


If present, label will appear on the first instruction generated. 

proc~name sym 

Indicates this CORP is intended to match the outstanding PROC block 
named proc-name. If coded, checks will be made to assure it is the cur- 
rent block. 

RESTORE=(7i/"5f,/a5rJ dec dig, sym 

Indicates the first and last registers to be restored. These must be a sub- 
sequence of those saved. If last is not specified, only register first will be 
restored. If the entire operand is omitted, all registers saved will be 
restored. 

RETURN=reg-//sf dec dig, sym 

One or more registers which would otherwise be restored but which are to 
be exceptions. The registers in the RETURN= list may be thought of as 
output values being returned to the caller. Used mainly for non-OS procs. 
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CORP 


RC-NONE 


Indicates no return code processing is to be performed. Register 15 will 
be handled as indicated by the RESTORE= and RETURN= operands. 


RC= value 


abs ex 


Indicates the number value is to be returned in register 15. 

RC=(reg) dec dig, sym 

Indicates the value in register reg is to be returned in register 15. 


If RC= is not coded the defaults are: 


For OS procs: RC=0 

For non -OS procs; RC=NONE 


LINK=NONE 

Indicates the returning branch is to be omitted and control be allowed to 
fall out the bottom of the CORP. 

l,mK= linkreg dec dig, sym 

Indicates a final ”BR linkreg" instruction is to be used to return to the 
proc's caller. 

If LINK= is omitted, LINK=14 is assumed. 
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DO 


DO -Define Iterative Block 

The DO macro defines the beginning of a segment of code to be executed 
repetitively until some condition occurs. The current static nest level is in- 
creased by one to cause the DO block to be nested immediately inside any pre- 
vious current block. The DO block is terminated 1^ the first OD, DOEND, or 
BLEND that occurs at the same nest level. The looping segment itself is ter- 
minated by the first OD, DOEND, BLEND, ATEND, ONEND, ONEXIT, or 
ATEXIT that occurs at the same nest level. 




"FOREVER 

- 

\blnam^ 

DO 

WHILE, /ooping-group [’ 

■ , UNTIL,/oop/ng-g/-o«pj 



UNTIL, /oop/«g-^ro»p [,1"^ 

■ , WHILE ,/oopiwg-groupj 


blname sym 

Name associated with this DO block and to be defined on the first instruc- 
tion generated. 

FOREVER 

Indicates the main looping control of the block is to contain no test for loop 
termination. 

WHILE ,looping-group 

Indicates that the tests indicated by the looping group are to be performed 
logically before the execution of the loop and the loop is to be executed as 
long as the looping group evaluates true . 

UNTIL , looping-group 

Indicates that the tests indicated by the looping group are to occur logically 
after loop execution— /.e., the first execution of the loop is not dependent on 
the UNTIL looping group. The looping will continue as long as the looping 
group evaluates false . 

The order of the WHILE and UNTIL is not significant. 
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DO 


AND 


Indicates that the WHILE group must be true and the UNTIL group must be 
false for loop execution to continue. 

OK 

Indicates that either the WHILE group must be true or the UNTIL group 
must be false for the loop execution to continue. 

looping-group 

Specifies the test to be made. The looping group is: 



r 

AND 
. OR , 

y 

looping-branch 

- 

» 

• , cond-test 

cond-test 





looping-branch 

One of the special looping instructions specified as: 

{BCT, regl) 

(B'KBjegl ,reg2) 

(BXBE,regl ,reg2) 

In an UNTIL looping group, the looping branches are considered to be true 
when they fall through. In a WHILE looping group, the looping branches 
are considered to be true when they branch. Note: DO WHILE , (BCT, /-egi) 
will loop one time less than the initial value in regL 

cond-test 

Is a conditional expression. See beginning of this appendix for the defini- 
tion of a conditional expression. 

The DO may contain at most one looping branch— that is, the WHILE and UNTIL 
may not both contain the operations BCT, BXH, or BXLE, 

A DO macro with no operands defaults to a ”DO FOREVER”. 
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DOCASE 


DOCASE-Define a Selection Among Alternatives 

The DOCASE macro defines the beginning of a block in which it is immed- 
iately nested a number of CASE blocks. An appropriate one (or possibly none) 
of these CASE blocks will be selected for execution as directed by the operands 
of the DOCASE and CASEs. The current static nest level is increased by one 
to cause the DOCASE to be nested immediately inside any previous current 
block. The block is terminated by the first ESA COD, DOCASEND, or BLEND 
that occurs at the same nest level. Nothing should be immediately contained 
within the DOCASE block except CASE blocks. (That is, the DOCASE macro 
should be immediately followed by the first CASE macro. ) 


blname 


DOCASE 


(index-word 


( index-reg) 



, SIMPLE 
.SPARSE 


, IF ANY 
.ONLY 


blname sym 

Name associated with this DOCASE block and to be defined on the first in- 
struction generated. 

index-word RX-type 

Indicates the DOCASE index is located in the word at address index-word, 
(index-rei) dec dig, sym 

Indicates the DOCASE index is located in the register index-reg. 

i 

{index, 'W) RX-type 

Indicates the DOCASE index is located in the word at address index. Same 
as first alternative. 

{index, B) RX-type 

Indicates the DOCASE index is located in the half-word at address index. 
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DOCASE 


{index , B) 

Indicates the DOCASE index is located in the byte at address index. 


A -type 


{index , length ) 


index- A -type 
length-abs exp 


Indicates the DOCASE is to select a CASE on the basis of character strings; 
the "index" string is at address index and of length length. SIMPLE and 
SPARSE are invalid with this option. 

If none of the indexing operands are coded, the DOCASE is implied to be of con- 
ditional test type-each of the CASE macros, which are nested immediately 
within the DOCASE, must have a conditional test as its operand. 

SIMPLE 

Indicates the DOCASE will contain immediately nested within it a small 
number of CASE blocks. If there are n such blocks (ignoring any MISC 
CASE which may be present), they are to be associated with index values 
2 2 3, . . . , n . Better code is produced for such situations when 
SIMPLE is coded and « < 6 (if no MISC CASE is present) or « < 12 (if a 
MISC CASE is present). 


SPARSE 

Indicates the number of CASE blocks which follow is small compared with 
the rai^e of values (between zero and the maximum index specified on any 
CASE block). Better code is produced for such situations when SPARSE is 

coded . 

IF ANY 

Indicates that if none of the immediately nested CASE blocks apply on any 
given index value, then either the MISC CASE is to be executed (if one is 
present) or no block is to be executed and control is to continue following 
the ESACOD. 


ONLY 

Indicates that the only values of the index which can occur are provided for 
by the immediately nested CASE blocks and no test need be made for other 
values. If ONLY is coded, no MISC CASE may be present. If neither 
IF ANY nor ONLY is coded, IF ANY is assumed. 
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DOCASEND 


DOCASEND —Terminate Alternative Selection 

The DOCASEND macro is provided as an alias for the ESACOD macro. 
See ESACOD for description. 

I I I 

I DOCASEND \block-nam^ 
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DOEND 


DOEND— Terminate Iteration Block 

The DOEND macro is provided as an alias for the OD macro. See OD for 
description. 

DOEND [block -name] 
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ELSE 


ELSE— Define IF Alternative and Terminate True Condition 

The ELSE macro terminates the definition of the true block of the IF (which 
is the current block) and initiates a block which is to be executed if and only if 
the IF block is bypassed. The ELSE block is terminated by the first FI, IFEND, 
or BLEND macro which occurs at the same nest level. 


\else-nam^ 


ELSE 


[BLEND=z/-na/nc] 


else-name 


sym 


Name associated with this ELSE block and to be defined on the first instruc- 
tion generated. If the ELSE= operand was coded on the corresponding IF, 
a check will be made to assure that the else-names match. 


BLEND=j/-«flme sj 

Indicates that this ELSE is intended to match the IF block named if-name. 
If coded, checks will be made to assure that it is the current block. 
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ESAC 


ESAC-Terminate a DOCASE Alternative 

The ESAC macro is used to terminate the current CASE block. The block 
termination code is generated and the current nest level is decremented by one. 
The ESAC should be immediately followed by either another CASE macro or the 
ESACOD. 


ESAC 


\block-nam^ 


block-name 

Indicates that the ESAC is intended to match the outstanding CASE block 
named block-name. If coded, checks will be made to assure that it is the 
current block. 
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ESACOD 


ESA COD— Terminate a Selection Among Alternatives 

The ESACOD macro is used to terminate the current DOCASE block. The 
block termination code is generated and the current nest level is decremented 
by one. 


ESACOD 


\block-\ 


name 


] 


block-name syi 

Indicates the ESACOD is intended to match the outstanding DOCASE block 
named block-name . If coded, checks will be made to assure that it is the 
current block. 
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EXIT 


EXIT— Abnormally Exit to the End of a Containing Block 

The EXIT macro causes control to immediately transfer to the end of some 
containing block. Since control cannot pass out the bottom of an EXIT macro, 
it is usually immediately followed by the block terminating macro of its con- 
taining block (often a FI). If the EXIT is nested at some depth within a proc, 
the EXIT may be made to the end of the proc, but not to the end of any block 
which may surround the proc. The EXIT does not affect the current nest level. 


[label] 


EXIT 


\block~nam^ 


label 


sym 


If a label is coded, it will be generated for cross-reference purposes. 

block— name sym 

The name of the block from which control will exit. Neither the block im- 
mediately surrounding the EXIT nor any block surroimding the proc sur- 
rounding the EXIT may be specified. If no operand is specified, the second 
containing block (the block containing the block containing the EXIT macro) 
is assumed. 
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FI 


FI— Terminate a Conditional Block 

The FI block is used to terminate the current IF or ELSE block. The block 
termination code is generated and the current nest level is decremented by one. 


FI 


\block-nam^ 


block-name sym 

Indicates the FI is intended to match the outstanding IF or ELSE named 
block-name. If an ELSE has been coded, the IF block name cannot be speci- 
fied. If block-name is specified, checks will be made to assure that it is 
the current block. 
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FINAL 


FINAL— Insure Structures are Terminated 

The FINAL macro checks to be sure that all blocks have been terminated 
(that the current nest level is zero). If SAVETRACE debugging is beii^ per- 
formed, the final static save area links are defined. The FINAL macro should 
not be coded more than once in an assembly and should follow the last block de- 
fined. It is optional unless SAVETRACE debuggii^ has been requested. 


FINAL 


A -23 




IF 


IF— Define Conditional Block 

The IF macro defines the beginnii^ of a block of code to be executed only 
under certain conditions. The static neat level is increased by one to cause the 
IF block to be nested immediately inside any previous current block. The con- 
struct is terminated by the first FI, IFEND, or BLEND that occurs at the same 
nest level. The IF block itself is terminated by the first FI, IFEND, BLEND, 
or ELSE that occurs at the same nest level. 



blname 


Name associated with this IF block and to be defined on first instruction 
generated. 

ASYNCH 


Indicates control is to never fall through into the block; an unconditional 
branch around the block will be generated. EXIT= must not be coded. 

cond-test 

The conditional expression which, if it evaluates to true , will cause the 
block to be executed. If the EXIT= operand is specified, the exit will occur 
if the conditional expression is true . See the beginning of this appendix 
for the definition of conditional expressions . 

E5CIT— sym 

If cond-test is true , control will pass to the end of the block named exit-block. 
No block surrounding the proc surrounding the IF may be specified as 
exit-block. 
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IF 


EXIT=* 

If cond-test is true , control will pass to the end of the block immediately 
containing the IF macro. 

If the EXIT= operand is coded, ASYNCH and ELSE= may not be coded. In 
addition, no FI is required (and must not be coded) to terminate the IF, 
since the block is defined only long enough to take the exit. 

E LSE= else-block sym 

Indicates an ELSE macro will follow at the same nest level with the name 
else-block. If the ELSE= operand is specified, a check will be made to 
assure the ELSE block is coded and properly named. The ELSE= operand 
need not be coded even if an ELSE macro follows— it is provided only as a 
check. 
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I FEND 


IFEND-Terminate a Conditional Block 

The IFEND macro is provided as an alias for the FI macro. See FI for 
description. 

\block~name^ 


IFEND 




OD 


OD— Terminate Iterative Block 

The OD block is used to terminate the current DO block. The end of the 
loop segment is defined if it did not previously occur by the coding of an ATEND 
or ONEXIT macro. If either an ATEND or ONEXIT segment is outstanding, it 
is terminated. The current nest level is decremented by one. 


OD 


[block-name] 


block-name 

Indicates the OD is intended to match the outstanding DO block named 
block-name. If coded, checks will be made to assure that it is the current 
block. 
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ONEND 


ONEND— Define Normal Loop Termination Code 

The ONEND macro is provided as an alias for the ATEND macro. See 
ATEND for description. 


ONEND 


{block- 


name 


] 


[ 
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ONEXIT 


ON EXIT-De fine Abnormal Loop Termination Code 

The ONEXIT macro is used to terminate loop definition (if not already ter- 
minated by an ATEND macro) and to define the start of the code segment which 
is to be executed when the loop defined by the DO macro at the current nest 
level terminates abnormally (that is , by the execution of an exit specifying the 
DO as its target). The end of the code segment is indicated by the first ATEND 
or OD macro which occurs at the same nest level. 

ONEXIT [block-name] 


block-name 

Indicates that this ONEXIT is intended to be a part of the DO block named 
block-name. If coded, checks will be made to assure it is the current block. 
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PROC 


PROC— Define a Proc 

The PROC macro defines the beginning of a proc block. The proc may 
follow OS linkage conventions or be of a simpler non -OS type. The current 
nest level is increased by one to cause the PROC to be nested immediately in- 
side any previous current block, although procs are normally outermost blocks. 
The proc is terminated by the first CORP, PROCEND, or BLEND macro that 
occurs at the same nest level. 


^proc-name'j 


PROC 


[linkage=([os], [CSECT])] 



NONE r 
id-string] 


pONE 

-DYNAM” 

— 

SAVE=-|(/i>j/ , 

NONE 

,\length \] " 

1 

.savearea j 

J — 


pONE r 

BASE=j basereg k 

[wORK=f II 
[workreg]] 

[EXIT=.5evenfy] 

[dE BUG= options-list] 


proc-name sym 

Name associated with this PROC block and to be defined on first instruction 
generated. 

LINKAGEOS 

Indicates this PROC will be invoked following standard OS conventions— 
entry point in register 15, return point in register 14, save area address 
in register 13. If coded, any save area linkage will follow OS standards. 

If omitted, a simpler non-OS proc is generated. 
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PROC 


LINKAGE =(,CSECT) 

Indicates a CSECT pseudo-operation is to be generated using proc-name in 
the name field. 

ID=NONE 

No in-line identifier is to be generated. 

ID= id-string 


The character string id-string is generated in-line similar to that generated 
by the OS SAVE macro. (The length field is omitted if the PROC is not OS 
LINKAGE . ) The character string may optionally be surrounded by 
apostrophes . 


ID=* 


The proc name is generated as an in-line character constant. (If proc-name 
is not specified, the internal block name is used for non -OS procs, 
"$PRIVATE" for OS procs. ) 

If the ID= operand is not coded, the defaults are; 

For OS procs, ID=* 

For non -OS procs, ID=NONE 

SAVE=NONE 

No registers are to be saved and no new save area is to be provided. 

SAVE=(first.last) dec dig, sym 

All of the registers in the range first through last are saved in the appropri- 
ate save area (the previous standard save area pointed to by register 13 
for OS procs, or an in-line save area for non-OS procs). The sequence of 
registers must be a sub -sequence of the standard 14 through 12 (j.e. , some- 
thing like "(10,15)" is invalid). If last is omitted, only register first is 
saved. If omitted, (14, 12) is assumed. 

SAVE=(, ,DYNAM) 

Specifies the new save area is to be obtained via GETMAIN and freed by the 
corresponding CORP. Valid for OS procs only. 
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PROC 


SAVE=(, .NONE) 


Specifies that no new OS save area is to be provided , but the registers in- 
dicated by the first two suboperands are to be saved in the old save area. 
Valid for OS procs only. 

SAVE=(, .savearea ) 

' sym 

Specifies the address of a user-provided new save area. Valid for OS 
procs only. 

K the third suboperand of the SAVE= kesrword is omitted (and SAVE=NONE 
is not coded) on OS procs, an in-line save area will be generated within the 
PROC macro as the new save area. 

SAVE- f ,,Jength) 

Gives the length, in words, of the dynamic or in-line save area. If speci- 
fied symbolically for an in-line save area, the symbol must be previously 
defined. If omitted, default is 18. Valid for OS procs only. 

BASE=NONE 


Indicates that no base register loading is to be performed. 


BASE= basereg 


dec dig, sym 


Code to load register basereg will be generated and a USING will be issued 
against it. The operand must be one of the registers 2 through 12. 


BASE-{baselist ) 


dec dig, sym 


A list of base registers may be supplied. Each register in the list will be 
loaded 4096 bytes beyond the previous and USINGs will be issued for all 
registers in the list. If the first suboperand of the list is omitted (by coding 
”BASE=(,re^2,/-eg3, , . . regn )"), the default base register will be assumed. 
(See below. ) Only registers 2 through 12 may be specified. 

If the BASE= operand is omitted, the defaults are: 


For OS procs with an in-line save area— BASE=13 
(May not be explicitly coded.) 

For OS procs without an in-line save area— BASE=12 
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For non-OS procs— BASE=NONE 

{If the first suboperand of baselist is omitted 
for non -OS procs , it defaults to 12 . ) 


WORK=NONE 

Indicates that any register (other than register 0) destroyed in the code 
generated is to be restored. 

WORK=wo/-A:reg dec dig, sym 

Indicates that register workreg may be destroyed by the code generated and 
need not be restored. The work register may not be specified as a base 
register. 

If the WORK-operand is omitted, defaults are: 

For OS procs: WORK=2 

For Non-OS procs: WORK=l 

'EXn=severity dec dig or 

Specifies that the error message which is generated at the target of an 
EXIT is to have the indicated severity code. The value of severity must 
be between 0 and 4095 or be a Once specified, it will remain in effect 

until specified on some other proc. Until first specified, the severity is 0. 

DE BUG= options-list 

Indicates those debugging options to be turned on or off during the duration 
of this proc. 

The individual options may be turned on by specifying either the option or 
its abbreviation from the following list. 

LISTBLOCKS[lb]— List block name, number, and nest level in comment at 

beginning and end of each block. 

PROCNAMES[pn]— Each proc’s name is to be generated as an in-line char- 
acter constant. 

BLOCKNAMES[bn]— Each block’s name is to be generated as an in-line 

character constant. 
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PROCCOUNTS[PC]— Code is to be generated to count proc executions. 

BLOCKCOUNTS[bc]— C ode is to be generated to count all block executions. 

PROCTRACE[pt]— Code is to be generated to keep track of the last 257 

procs envoked. 

CORPVALUES[CV]— Maintain save areas to hold values of registers at non- 

OS CORPS. 

SAVE TRAC e[st]— Statically link together all save areas in non-OS procs 

and dynamically insert entire chain in save area list on 
entry to first proc. For this option, first proc must be 
LINKAGE=OS and must enable the SAVETRACE option. 
The FINAL macro must also be coded following the last 
proc. 

To turn off any of the options, prefix the name by NO- or the abbreviation by 
N- (e.g., "NOPROC TRACE" or "NPT"). When the CORP is generated, options 
will revert to their status before the PROC macro. To avoid the restoring of 
the options' status at CORP time, include "GLOBAL" (or "GBL") in the list. 
"ALL" or "NONE" may be specified to turn on or off all options; either may be 
followed by exceptions, (e.g. , "DEBUG=(ALL,NST)" turns on all options ex- 
cept the save-trace. ) 


A-34 



PROCEND 


PROC END —Terminate a Proc 

The PROCEND macro is provided as an alias for CORP. See CORP for 
description. 

[label] PROCEND [proc-name] 

V [NONE]" 

(RC=-' value y 

L 

[re STORE=(/?« r [, last ] )] 

[RETURN= reglist] 

TrTXTT. [NONE]' 
j^LINK 
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APPENDIX B 

INTRODUCTION TO ABSTRACT SOURCE LISTING OF STRCMACS 


OS macro assembly language is an insufficiently powerful language for doing 
structured programming. As a result, the programming of the STRCMACS was 
performed in an abstract programming language called SIMPL-M. This is an 
imaginary language which is a hybrid of SIMPL-X (a high-level structured pro- 
gramming language developed at the University of Maryland) , ^ OS macro assem- 
bly language, and the STRCMACS themselves. After the code was written in 
SIMPL-M, it was translated by hand to OS macro assembly language. The 
SIMPL-M program is considered the "source" code and all updates are performed 
in it. It is much easier to read than the macro assembly language source. The 
SIMPL-M source for the macros is listed in Appendix C. In this appendix, we 
will give a brief description of the SIMPL-M language. In addition, a decision 
table for the DO macro formats is included in this appendix to complete the 
source documentation. 

Introduction to SIMPL-M 

SIMPL-M is a high-level language for tiie specifying of assembly language 
macros. In some ways it resembles ALGOL or PL/I; it provides for aribtraiy 
nesting of control structures such as while . . and docase . Two types of 
modules are allowed: macros and procs . The macros are not macros in the 
sense that they are expanded when the SIMPL-M source is "translated"; they 
are macros in the sense that the translated version defines and may be evoked 
as OS assembly language macros. The operands which are specified for macros 
closely parallel the allowable operands of OS macro prototype statements (that 
is, a name field operand and a list of positional and/or keyword operands). The 
procs are parameterless modules constructed during the stepwise refinement 
of each of the macros of the STRCMACS. They are expanded in-line in the trans- 
lation to the assembly language macro definition. Both macros and procs are 
shown as being evoked by call instructions. The distinction is obvious since the 
macro calls always have argument lists (possibly empty as " call BLEND ( ; )"), 
and the proc calls never have argument lists. In addition, procs always have 
multi-word names whose first word indicates the macro of which the proc is a 
part. (For example, the proc "DOCASE_GENERAL__SETUP" is a part of the 
DOCASE macro. ) 


^Basili, Victor R., “SIMPL-X: A Language for Writing Structured Programs,” University of Maryland 
Technical Report TR-233, January 1973. 
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The correspondence between the SIMPL-M macro statement and an OS 
assembly language macro prototype is illustrated by the following example: 

SIMPL-M: 


macro CORP (USER_NAME; PROC_NAME, RETURN^, LINK=14, 
RESTORE=, RC=) 

OS MACRO: 

MACRO 

&USRNAME CORP &PROCNAM,&RETURN=, &LINK=14,&RESTORE=,&RC= 


Statements in SIMPL-M require neither terminators nor continuation in- 
dicators. Statement boundaries are unambiguously defined by the use of re- 
served ke3Hvords (which are shown in the listing as lower case underlined terms 
such as while and generate ) and by a carefully chosen syntax. 

The data types in SIMPL-M are taken directly from OS macro assembly 
language. They are: 

int - Intergers 

bit - Logical variables 

char - Character strings 


Such variables may be global to all macros and procs (defined before the 
first macro ) , local to a macro but global to its procs (defined at the beginning 
of a macro ) , or local to a proc and unknown to any macro (defined at the begin- 
ning of a proc ). Int , bit , and char variables are initialized to 0, false , and " 

(the null string) respectively. The globals are initialized at the beginning of the 
assembly program's execution; the macro locals, at the beginning of each macro 
expansion; the proc locals are not considered to be initialized. Automatic type 
conversion occurs as follows: 


int to bit : 
int to char : 

bit to int: 


0 false ; all else to true 

the absolute value of the integer is expressed as characters 
without leading sign or zeros 

false -> 0; true 1 
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bit to char : false -> *0’; true -»• ’1’ 

char to Value if numeric character string (with possibly leading "+” 
or else undefined 

char to 'O' false ; ^ true ; else undefined 

Character constants may be surrounded by either single or double quotes , 
but may not contain the delimiter character. One dimensional arrays are al- 
lowed. They are demensioned in their declarations as 

^ X(20) 

and are referred to as 
X(3) := Y 

The first element of the array has the index 1 . 

Macro operands are either positional (determined by order) or keyword 
(determined ty the fixed term proceeding the The variables representing 

such operands are implicitly defined as char variables. If a list argument 
corresponds to the parameter X, the whole list may be referred to as ’X"; the 
first item in the list may be referred to as ’X(l)"; the second as ’X(2)"; etc. 

If the argument is not a list, it may be referred to as either ’X" or 'X(l)"; 
'X(2)" will then have the null string as a value. 

The assignment statement is indicated by the symbol For example: 

I := 1 

stores the value 1 into I. Multiple assignments may be made by specifyii^: 

I, J := 1 

Relations may include implied operands. For example: 

if I = 1 or = 19 is the same as ifI = lorI=l9 

Only as much of the conditional expression is evaluated as is necessary to es- 
tablish the overall value. This allows such expressions as: 

if J 0 and I / J = 4 . 


to be evaluated without an underflow occurring. 
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The body of a macro is terminated by a mend instruction. The mexit in- 
struction causes immediate exit from the macro definition. Character strings 
are concatenated by using the ” || " operator. 

X 'ABC* 

Y := X II 'DEF' 

assigns 'ABCDEF' to Y. Brackets are used to select substrii^s. 

X := 'ABC' 

Y := X[2,l] 

assigns 'B' to Y. The two expressions in brackets are the starting character 
position and the length. 

The instruction "generate (string)" causes the operand string to be gener- 
ated as an assembly language instruction at OS macro expansion time. 

Three intrinsic functions are provided for testing macro operands. Their 
values are given below when applied to the macro operand ARG. 

T’ARG — Has the char value 'O' (oh, not zero) if ARG was omitted by the 
user; has the value *N' if ARG is a decimal self -defining term; 
has some other value if neither of these is true. 

K'ARG — Has an iirt value equal to the number of characters in ARG con- 
sidered as a character string. 

N'ARG — Has an i^ value equal to the number of suboperands in ARG. (If 
ARG is "(A,,B)", N'ARG is 3.) 

The special variable SYSLIST takes on the value at macro call ^f all the 
positional operands, considered as a list. N'SYSLIST is the numiiet'of positional 
operands to the macro. For example, in the prototype " macro (LAB; X, Y, Z)" 
SYSLIST(2) and Y may be used to refer to the same operand; SYSLIST(4) is the 
only way to reference a fourth operand; LAB is the only way to reference the 
label-field operand. 

Comments are surrounded by "/*" and "*/" and may flow over any number 
of lines. By convention, comments which are inserted as part of a program 
proof are further nested in braces: 

/•(...}•/ 
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DO Macro Decision Table 


A decision table was used to simplify the coding of DO operand processing. 
This decision table is included here for documentation. 

The complete form of a DO macro is 

DO WHILE , <looping-branch> , <and/or> , <cond-test-A> , <and/or> , 
UNTIL, <looping-branch> , <and/or>, <cond-test-B> ' 

The complete form of the code generated is given by the partial flow chart: 
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The following decision table shows the connections which must be made for 
the various formats . Those shown lightly shaded occur without branching (con- 
trol falls through to the indicated node). Boxes shown cross-hatched do not 
occur for that operand combination. An example follows the table. 
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FOREVER 





































S18U1 

$18W1 

$18END 


Example of the code generated 
for the macro: 

DO WHILE,<LTR,3,3,P),AND, 
UNTIL. (BCX5), OR. 
(CLI.SPOT.CX'.E^ 

Operand format number 6. 

Code generated: 

B $18W1 

CLI SPOT,C'X' 

BE $1BEND 

LTR 3,3 

BNP $16ENO 

^Block^s code)^ 

BCT 5,$t8Ul 

DS OH 


BRANCH 
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Global Definitions 


14 July 1973 


135. 

136. 

137. 

138. 

139. 

140. 

141. 

143. 

144. 

145. 

146. 

147. 

148. 

149. 

150. 

151. 

152. 

153. 

154. 

155. 

157. 

158. 

159. 

160. 
161. 
162. 

163. 

164. 

165. 

166. 
167. 


170. 

172- 

173. 

174- 

175. 

176. 

177. 

178. 

179. 

180. 
161. 
182. 
183. 
104. 
185. 
106. 

187, 

188. 

189. 

190. 

191. 

192. 

193. 

194. 

195. 


/* GENSBAL PURPOSE GLO0ALS, ♦/ 

int 

PROC COUNTER, /* Humber for last special ptoc label ”$Ppp». The 
is PRQC^COUNIER in hex. ♦/ 

LRST_BL0CK_HUHB2R, /♦ Number used in labels of most recently generated 
block. »/ 

HEX_IN /* Input value to XHEX macro. */ 

b it 

EuBOR_OCC URRED , /♦ General purpose error flag used by various 

inner macros to report failure. ♦/ 

TDL_PALLTHRU_OCCUBS, /♦ Set t£ue by TERDI N ATE_DO_LOOP if DO may 

fall through bottcn in terminating (when a looping branch is 
present) ; else set false . */ 

NOT_PI BST_PROC , /=* false until processing begins on first PROC 

macro. */ 

SA VET8ACB_0H_FIflST_PH0C, /* false unless first PROC macro included 
DEBUG- (•••,SAVETRACE,«*«) operand. ♦/ 

TRACE_VECTOE_GENNED /* f alse until the trace vector (STHACE) 
is generated on the first PROC which includes the 
DEBUG- (•♦•,PROCTRAC£,#**) operand- ♦/ 

char 

BL0CK_LAB EL_PREFIX, /♦ Unique character string for each block 

for use in generating labels. */ 

EX IT_S EVEBITY, /* Mnote severity for EXIT target message. Can be 
set by PROC macros, ♦/ 

BEX (16), /* Constants used in converting decimal to hex by XHEX. */ 

HEX_0UT, /* Output value from XHEX macro. */ 

PREV^S A7ETHACE_AREA, /♦ Holds label generated on last local PROC 

save area to be used in producing the static chain for SAVETBACE. 

PHBV_s AVETRACE^PTR /♦ Holds label generated as foreward pointer 

within last local PROC save area for static chain for SAVETRACE. */ 


/* DEBUG FLAGS- */ 

bit 

DE EUG_^BLOCKCOUNTS_3£QD , /* Causes code and counters to keep execution 
counts on all blocks. */ 

D£ BUG_6L0CKNAHES_R£QD, /* Causes block names to be generated as 

inline character constants to aid in locating within dumps. */ 
DE0UG_COSPVALUES_BBQO, /* Causes register values at end of procs (at 

CORP macro start) to be saved in inline save areas for reference. ♦/ 
DEBOG_DEBOGMACBOS_BEQD, /♦ Causes various intermediate values to be 
printed during macro processing for debugging the macros- 4>/ 
DEBUG_LISTBLOCKS_RBQD, /* Causes mootes to be generated at the start 
and end of all blocks listing their name, number, and static 
nesting depth, ♦/ 

DEBUG_MAC BONAMES_REQD, /* Causes mnotes to be generated whenever any 

macros are entered (including inner macros) which list the macro's 
name; for debugging the macros, ♦/ 

DEBUG_PBOCCOUNTS_SEQD, /* Causes code and counters to keep execution 
counts on PROC blocks only. V 

DEBUG_PB0CNAI1ES_HEQD, /* Causes PROC names to be generated as 

inline character constants to aid in locating within dumps, ♦/ 

DE 0UG_PBOCTHACE_REQD, /♦ Causes a trace vector to be generated and 

code to be generated to keep track of the last 257 PROCs entered. ♦/ 
DEBUG^SA? etrace^EEOD /♦ Causes all local save areas to be statically 

chained together and code to be generated to link the chain to the 
OS save area to provide OS formatting vlthin ABEND dumps, */ 
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Global Definitions 


14 July 1973 


197. 


/* H&m STiCK. Dimensioned to 100. */ 


199. 

200 . 
201 . 
202 . 
203. 

205. 

206. 

207. 

208. 
209. 

211 . 

212 . 

213. 

214. 

215. 

216. 

217. 

218. 
219- 
220 . 
221 . 
222 . 

223. 

224. 


227. 

229. 

230. 

231. 

232. 

233. 

234. 

235. 

236. 

237. 

239. 

240. 

241. 


int 


bit 


CURBENI_<SEST_LEVEL, /* Current depth of static nesting of 

blocks; stack pointer. */ 

NESTING LIMIT, /♦ Holds dimension of main stack. / 

BL0CK_H0MBEH<100) /♦ Block number of the Itb block. »/ 

END_LABEL_REC/D (100) , /♦ indicates whether Ith block needs an END label 
generated during EOP_OLD_BLOCK . */ j vtfp 

EXIT LABEL_REQD(100) /* Indicates whether Ith block needs an XIT la 
generated during POP^OL DEBLOCK- ♦/ 


char 


int 


bit 


BLOCK NAME(IOO), /* Block name of Ith block, either USEK_NAME specified 
" in macro label field or generated name »ELKnnn" where nan is the 

sequential block number- ♦/ ^ ki 

BLOCK TYPE(100J, /* Macro name which generated the Ith biocK 
■ (IF, DO, DOCASE, CASE, BLOCK, or PflOC) . V 
OPERAMDI(IOO), OPEBAND2(100), OPEHAND3 (100) , 0PERAND4 (100) , 

/♦ These hold various data which are needed to close the blocks 
generated. Specific contents vary according to the type of 
block generated- See individual macros. */ 

TMPOPH ATIQN MO 01 /* Similar to the OpEfiANDg stacks above, the . . , 

INFOBBMIOHOOOW^ start holds information for the closing of the block. 

Often the individaal characters within the rariables ye used for 
different values, packed together into INFORMATION. / 

/♦ GCASE STACK. Holds data for general DOCASEs- Dimensioned to 9. ♦/ 

BAX CASE VALUE (9), /* rtarinum branch vector value found. ♦/ , , ^ 

KEXT^COMP_LAaEL_NO(9) , /♦ Case nuater for next comparison case label 

r'r'icp T FVPi /♦ Current depth of stacking in the GCASE stack; 

^ number of nested DOCASEs with either GENERAL, SPARSE, or CHARCOBP 

operand formats. i 

GCASE NEST LIMIT /* Haxiautt depth of nesting of GCASE stack; mus 
” be*’equal to stack dimension. */ 

CASE OCC0RS(2304) /* Each group of 256 bits are used to note 

which branch vector cases occur. */ 


244. 

246. 

247. 

248. 

249. 

250. 

262. 

253. 

254. 
255- 

256. 

257. 

259. 

260. 
261. 
262 . 
26 3. 

264. 

265. 

266 . 

267, 

268. 

269. 

270. 

271. 


bit 


/* C0»DITI0KAL_EXP&ESSICK_PR0CESS0B PSEUDC-PA B AMETESS . ♦/ 

/. Pseudo-pdraneters to CONI>ITION»l_EXPRESSION_PROCESSOfi. 

“ "^Indicates indescL within SYSLIST of first and last parameter to be 
processed. */ 

ULTIHATE_rALLTHBn_CONDITICN, /♦ Logical value upon which conditional 

expression is to pass control (or fail through) to the ULIIMATE_ 
FALLTHRU.LABEL, ♦/ ^ 

FAILTHHU LABEL USED /♦ CEP sets this tru e if a branch is generated 
to the ULTIMATE_FALLTHRU_LABEL (else no change occurs). V 


char 


ULTIMATE BRANCH LABEL, /♦ Indicates label to be used as branch target 
when conditional test does not have logical value stored in 
□LTIHATE_FALLTHflU_CQNDITION. V 

ULTIMATE FALLTHRO_LA0EL, /* Indicates label available as branch target 
when conditional test has logical value stored in ULTIMATE^ 

FALLTHBU condition. If used as a branch target, PALLTHRD_ 

LABEL USED DUst be set true (by CEF) to insure next sequential 
instruction following conditional expression receives label 

definition. V a 

UNIQUE LABEL ID /♦ One character unique to this call of CEP used to 
insure labels generated by this call will differ from all 
labels, even others within the same macro (particularly for DO) . / 


•o*o*o*o*o«o*o*o»o*o*o«o*o*o«o*o«o»o»o-o*o*o«o*o*o*o-o*o*o*o»o*o* 


0*0»0*0«0*0*0"0* o«o*o*o* o*o»o»o*o* 
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«IP« Macro 


21 June 1973 


11001. aacro IF (OSEH^MAHE; BEL-, BASK=, EXIT=, ELSE=) 


1100 3. 
11004. 
11005. 
11006. 
11007. 
11008. 
11009. 
11010. 
non. 
11012, 
11013, 
11014, 
11015. 
11016. 
11017. 
11018. 


/* Initiate a block in the structure. Save any infornation needed 
by ELSE or FI. For AST.NCH type, generate branch around block. 

For normal IF (EIIT= not specified), generate conditional expression 
tests With branch around block (or to ELSE) for false and fall 
through for ^ue; if EXIT= specified, then generate branch to 
proper block end for j^ue, fall through for false , and delete 
IP block from structure. Put. OSEH_MAflE on first executable 
instruction if one specified. */ 

Mt 

VALID^EKIT 

V^blD^EXIT is t r ue if EXIT~ was specified and no errors have 
been found to cause the EXIT to be ignored, */ 

EXIT_LABEL, /♦ Label for EXIT- branch, when deferred until 
after block count has been increnented. */ 

LABEL /* Outstanding label, waiting to be generated. ♦/ 


11020 . 

11021. 

11022, 

11023. 

11024. 

11025. 

11026. 

11027. 

11028, 

11029. 

11030, 

11031. 

11032. 

11033. 

11034. 

11035. 

11036. 

11037. 

1103B. 

11039, 

11040. 

11041. 

11042. 

11043. 

11044. 

11045. 

11046. 

11047. 

11048. 

11049, 

11050. 

11051. 

11052. 

11053. 

11054. 

11055. 

11056. 

11057, 

11QSB. 

11059. 

11060. 

11061 . 

11062. 

11063. 

11064. 

11065. 

11066. 

11067. 

11066. 

1 1069. 
11070. 
11071. 
11072. 
11073. 
11074. 


call TRACE^PfilNTEB ( - • »IFt) 

/* Prints macro name “IF" in mnote if tracing cn. */ 
call PUSH^NEB^BLOCK (USER NAME; 

BLOCK^TYPE_VALUE=~IF* , 

OPEBAM01_VALD2^EL5B, 

E N D_L A BE L_ V AL 0 B=s^t EMS ) 

/* Define new biock;^ add to stack, initialize block specifications. 

Assume block will require an EKD label. Note block type and save 
name of ELSE block if one specified here- Set up unique 
^ « BLOCK_LABEL_PBEFIX for use in generating unique labels, ♦/ 

durring P0SH^NEB_BLOCK (viz., stack overflow) •/ 

merit 

fi ~" 

if HEl ^ » gr HASH t • » 

thgn 

(8, *SrBC1102 BEL= or mask- not in parentheses — IGNORED*) 

LABEL ;= USER_NAME 

/* Generate USER^NAME at first opportuaitv. ♦/ 

VALID_BXrT := (EXIT # ' •) 

it specifiea. ./ 

/* Either «IF ASYNCH" or «IF (ASYNCH) " was entered. */ 

SSiJ: i^_,ASYNCH^BHA NCH /• Generate branch around block, ♦/ 

Sisg 

call IF^SET^CONDITION AL,TESI_SPEC$ 

/♦ Set all conditional test specifications in globals required to 
defxne the actxon to be performed by the conditional test 
generators. •/ 

if VALID_EXIT /♦ i-e., if EXIT specified and still valid,.. */ 
tasn 

call IP_EXIT_SPECS 

Reset conditional test specs according to EXIT target provided 
no conflxcting parameters exist (in that case, set VALID EXIT to 
raise d , ♦/ ~ 

fi 

call IP_CON0ITIONAL_G£NEBATOR 

/• Generate cooaitional tests according to IP macro operands and 
current conditional test specs. ♦/ 

I P_BL0CK_C0UNT 

/* do. that ve*re into the block's erecuticn, do any dehug counting 
et. al, that xs required. *y j a a 

if LABEL # » • 

then 

geneja^ (LABEL || * DS OH*) 
f i 

if VALID^EXIT 

/♦ No IF block remains after completion of "IP BXIT- 
simulate presence of fi macro. •'/ 

^ £sll FI ( ; ) 

mend 


macro; 


o.o.o.o.o.o.o.o.o.o.o.o.o.o.o.o.o«o.o.o.o.o.o.o.o.o.o.o.o.o.o.o.o.o.o.o*o.o.i 


o*o*o*o«o«o*o»o* 
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«IF*' fSacro 


21 June 1973 


1107 6, IF_ASTNCH^BfiANCH 

11077. /* Give error message if EXIT specified-. Generate branch to 

11078. end of IF block- ♦/ 

11080. if YALID_EXIT 

11081. then 

11002. OBOte (8, 'STfiClIOl EXIT=== IGNOFED ¥IT0 »ASyNCH«») 

11083. VALID EXIT false 

1108*1. fi ^ 

11085. ge nera te (LABEL N • B * || BLOCK_LABEL_FREFIX *EHD*) 

11086, /* Branch around asynchroneous IF block.”*/ 

11087. LABEL := *• 

11088, corp 


«0*O*O* 0*0*0 *0*0*0* 0*0*0* 0*0 *0*0 *0*0*0 *0*0*0 *0* 0*0* 0*0*0*0*0*0*0*0 *0*0* 0*0 *0*0* 0*0*0*0 *0*0*0 *0*0*0* 
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21 June 1973 


11090. 

11091. 

11092. 

11093. 

11094. 

11095. 

110 ^ 6 . 

11097. 

iiosa. 

11099. 
11100 . 
11101. 
11 102. 
11103, 

1 1 105. 
11106. 
11107. 
11108. 
11109. 
11110 . 
iim. 
11112. 
11113. 
11114, 


£roc IF SET_CONDITIOHAL_TEST_SPECS 

^ Set the conditional test specifications which, together with the 

actual positional operands of the IF macro, define the conditions 
to be generated. The specs are: 

ULTIMATE_BBA KCH_LABEL label for target of overall test's branch 

ULTIHATE_FALLTHRU_LABEL label to be appended to next sequential 
instruction following overall test; will be generated 
if used in the test's branching structure 
ULTIHATE_FALlTHBU_CONDITlON 

logical value which is the one upon ^vhich the overall test is 
to fall through 

FALLTKHO^LABEt^USED fal se until a branch is required within 

the testing structure to the fall-through label. 

All of the above are global variables, ♦/ 

/♦ Set the normal conditional test specs, ♦/ 

OLTIMATE^EHANCK^LABEL ;= BL0CK_LAB EL_PREFIX 1| 'END* 

/* Branch target for false result is END label end of IP or 

start of ELSE, ♦/ 

DLTINATE_FALLTaRU_LABEL := B10CK_LABEL^PREFr X || 'BEG' 

/* Fall-through label to be used is BEG, V 
DLTinATE^FALLTHhU^CONDITICN := true 

/♦ Pall through if conditional test yields true result. ♦/ 
PALLTBRU_LABEL_USED := false /♦ Assume net required, */ 
corp 


•o*o*o*o«o *o*o«o*o« o»o •0*0»0«0*o*o«0*0^0*0*0 #o*o»o»o»o*o»o*o*o»o«o*o»o«o*o«o#o*o^o*o*o*o»o*o«o*o*o* 
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21 June 1973 


11116- 
11117- 
11116 - 
11119- 
11120 - 
11 121 - 


□ roc IF_EIIT_SPECS . « 

"" /* exiT= operand has been specified; insure ELSE- not also 

specified- If valid, change conditional test specs to standard 
for BXIT-type IF including the assigning of the branch target 
as the XIT label of the block specified by the EXIT keyword. */ 
£har HOLD /♦ Temporary. */ 


11123- 
11124. 
11125. 
11126- 
11127. 
11128, 
11129- 
11130- 
11131. 
11 132- 
11133- 
11134, 
11135. 
11136- 
11137. 
11138- 
11139. 
11140. 
11141- 
11142- 
11143. 
11144- 
11145. 
11146. 
11147. 
11148. 
11149, 
11150- 
11151- 
11152. 
11153- 
11154. 
11155. 
11156- 
11157- 
1115B. 
11159- 
11160- 
11161. 


if ELSE ^ ** /* If ELSE= was not oaitted-.- ♦/ 
then 

^MOte (8, •STBC1103 EXI1= IGNOBED WITH ELSE=*) 

VELID^EXIT ; = false 
else 

HOLD := ULTIMATE BfiAHCB^LABEL 

/♦ Save old branch label, we may need it yet- ♦/ 
call EXIT FIND ( ; EXIT) , ^ u 

/♦ Sets ULTIMATE BBABCH_LABEL to XIT label of block whose 

is specified'in the argument; if none specified («EXIT=*, ) , 
use block surrounding IP macro; if no such block, issue message, 
leave ulTI«ATE_BBANCH_LABEL unmodified, and set EaflOR_OCCORBED to 
true- Mark target block as requiring XIT label. ♦/ 
if DEBaG_BLOCKCOUMTS_BEQD 
the n 

EXIT_LABEL ;= ULTIMATE_BRA NCH_LABEL 

ULTiaAT£_BRAMCH_LABEL := HOLD ^ ^ 

/♦ Bake EXIT-type IF act like regular IF (i-e- , fall through on t£^) 
so we can count the number of times the exit is taken; save the 
EXIT_LABEL for a branch after the count is made and make the 
ULTIMATE_ERAMCB_LABEL whatever it would have been had this been 
a regular IF. ♦/ 

else 

ULT1MATE_FALLTHRU_LABEL := BLOCK^LAB EL^PBEFIX 

0 LTIBATB_FALLTHBU CONOITIOH false /♦ Fall through on false. / 
END_LABEL_REQD (CUBBENT^NEST^LEVEL) false 

if ERROH_OCCUfifiED /* on EXIT^FIND... */ 

y* Exit point not found and message has been issued. Make branch 
point sane as fall-through point and clear error {i.e-, fix up 
and continue) * */ 

ULTIBATE_BRAHCH^LABEL z~ BLOCK^LAB EL_PREPIX 
FA1LTHRU_LABEL_USED ;= tru e 

/* ...since it’s also the branch label. */ 

ERROfi_OCCUBBED fals e 


fi 


fi 




» 0 * 0 « 0 * 0 « 0 * 0 « 0 * 0 * 0 * 0*0 


^o•o^o*o^o^o*o*o^o^o^o^o•o•o•o*o^o^o^o^o^o^o•Q^o^o^o•omo•o^o^o*o•o^o^o•o^o^o• 
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11163. 

1116U. 

11165, 

11166, 

11167. 

11168. 

11169, 


P£OC ir_COHDITIONAL_GENEBiTOa 

/♦ Generate code to pass control to the ULTIHA'IE_PALLTHao_LABEL (or 
to fall through to it) if the conditional test specified has the 
logical value which is stored in OLTIHATE FALITHBU CONDITION; 
else to pass control to the OLTIHATE^BEAKCH LABEL.' Also generate 
fall'through label definition if FALLTHRU LABEL DSED was ever 
turned on. ♦/ ~ ^ 


11171, 

11172, 

11173. 

11174. 

11175. 

11176, 

11177. 

11170, 

11179. 

11180. 

11181, 

11182, 

11183, 

11184. 

11185. 

11186. 

11187. 

11180. 

11109. 

11190. 

11191. 

11192. 

11193. 

11194. 

11195. 

11196. 

11197. 

11198, 

11199. 

11200, 

11201. 

11202. 

11203. 

11204. 


/♦ Set up further specifications reguired by CONDITIONAL EXPRESSION 
PROCESSOR. V ” “ 

PIRST_INDEI 1 
LAST.INDBX := N'SYSLIST 

/• The operands of SYSLIST to be processed are operand 1 through the 
last operand [ SYSLIST (N'SYSLIST) J, i.e., all of then, •/ 
0B1IQ0E_LAB£L_ID := *I» 

/* Used by COKDITIONAl_EXPRESSION PROCESSOR to produce unique 
labels, V 

call CONDITION AL^EXPBESSICN^PBOCESSOB (LABEL; SYSLIST) 

/♦ Generate code corresponding to the operands of the IP (cefered 
to collectively as SYSLIST) , Only the SYSLIST can be passed 
directly as arguneats; the following variables are effectively 
arguaents but are passed in global variables: 

FIRST^INDBX, 

LAST INDEX, 

ULTliATE^BHANCH LABEL, 

ULTIBATE_FALLTHio LABEL, 

OLTIHATE_FAlLTaBa'cONDITIOB, 

□NIQUE_1ABE1 ID, 

PA LLTHBU^L ABE LOUSED, 

Process operands of the SYSLIST beginning with SYSLIST (FIRST INDEX) 
through SYSLIST (LASI^INDBX) [for the IF macro, this is the entire 
SYSLIST], generating the indicated tests to pass control as 
indicated above. The UNIQUB^LABEL^ID is used to insure unique 
labels. If a branch is uade to the OLTIUATE FALLTHRU LABEL, then 
F ALLTHflU___LABEL_US ZD is set, else it is unaltered, ♦/ 
if PALLTHHO_LABEL_USBD 
then 

LABEL := ULTItlATB_FALlIHHO_LAflEL 
else 

LABEL := «» 

fi 

COJC£ 


io*o*o*o»o.o^o.o.o. O*o*o*o*o.o*o*o*o*o#o«o*o*o.o#o*o#o*o.o«o*o*o*o*o*o*o«o*o*o*o*o*o*o.o*o*o-o*o*o# 
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1120 6 . 
11207. 
11208. 
11209. 

11211 . 

11212. 

11213. 

11214. 

11215. 

11216- 

11217. 

11218. 

11219. 

11220. 

11221 . 

11222. 

11223, 

1122 ( 1 . 

11225. 

11226. 

11227. 

11228, 

11229. 

11230. 

11231. 

11232. 

11233. 

1123i(. 

11235. 

11236. 

11237. 

11236. 

11239. 

11240. 

11241, 

11242, 

11243. 

11244. 

11245. 

11246. 

11247. 

11246. 

11249. 

11250, 

11251. 

11252- 

11253, 

11254, 

11255. 

11256. 

11257. 

11258. 

11259. 


£roc IP_BL0CK_C0UNI 

~ if^debugging in progress, generate block name and/or count of 

block execution. Note that kSYHCH blocks cannot be counted. ♦/ 
char TAflGET /* Temporary, ♦/ 


if SYSLIST(1,1) = 'A3YMCH' 
then 

^'if DEBUG_3LOCKNAWES^aEQD 
^ the n 

g enera te (« DC c*<' .|| BLOCK WABE<aiRRBNT_HEST_LEVEt) || 

/♦ Asynch branch has already occurred; only name required, */ 

u 

else /* Not ASYNCH. */ 

if DEBUG_BLOCKCOUNTS_EEQD Ot DtBOG_BlOCKNABES_fiEQD 
the n 

if DEBUG_iJLOCKCOUNTS^aEGD 
then 

/* Generate code to increaent block execution count. */ 
generate (LABEL H ' 1 » * i I BLOCK^LABEL^PBEPIX || *IFC) 

I R7T * = * ■ 

aaaeiate (• iA 1,1 tn ■) 

generate (• SIH 1,' II BLCCK_LABEL_PBEFIX I I 'irC') 

fi 

/♦ Generate branch around block nane and/or block count. ♦/ 
if EXIT_LABEL = » * 
then 

TARGET := BL0CK_LABEL_PHEFIX || 'GO' 

/* Branch directly around block name/count, */ 


els e 

TARGET := BXIT_LABEL 

/♦ Branch to end of EXIT- block, postponed to here so ve could do the 
countiug. */ 

iL 

g enera te (LABEL i| • B • JJ TARGET) 

if BYIT^LABEL = ' • 

LABEL ;= TARGET 

/* Label for branch-around must be defined. */ 


else 

LABEL 


I t 


fi 

if D£BUG_BLOCKRABES^RBQD 
then 

gene rate ('• DC C* « |J BLCCK^NAME (CDRR B»T_NEST_LEVEL) 1| 

fi 

if DEBOG_BLOCKCOUHTS_REgD 

genera te ( BlOCK_LABEL_PREFIX H «IfC DC H'O' IP COONT”) 

fi 

fi 

fi 


«0«0*0 *0*0*0 0*0* o* o «0« 0« 0« 0«o*O* O *0 «0*0*0*0* 0*0* 0*0 *0*0*0*0« 0*0*0 *0*0*0* 0*0 *0*0 *o*o*o*o*o*o*o*o* 
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1300 1, 
13002. 
13003. 
1300U. 
13005. 
13006, 
13007. 
13008. 
13009, 
13010, 
13011. 
13012, 


mac^ ELSE (USEB^NABE; BLEND=) 

/♦ Initiates a block, which is to be executed if the currently active 
IP block was not executed, and to be skipped if the IF block was 
executed. The ELSE block terminates the IF block with a branch to 
the end ot the ELSE block and initiates the new ELSE 
block. V 

int 

ELSE_BLOCK_BO /♦ Block number which will be assigned to 
upcoming ELSE block. ♦/ 

char 

IF_EXIT_LABEL /♦ XXT label for IF block if one was to have been 
generated, else null, */ 


13014. 

13015, 

13016, 

13017. 

13018. 

13019. 

13020, 

13021, 

13022. 

13023. 

13024. 

13025. 

13026. 

13027. 

13028. 

13029. 

13030. 

13031. 

13032. 

13033. 

13034, 

13035. 

13036, 

13037. 

13038. 

13039. 

13040. 

13041. 

13042. 

13043, 

13044. 

13045. 

13046. 

13047, 

13048. 

13049. 

13050. 

13051. 

13052. 

13053, 

13054. 

13055. 

13056. 

13057. 

13058. 

13059. 

13060. 

13061. 

13062. 

13063. 

13064. 

13065. 

13066. 

13067. 

13068. 

13069, 

13070. 


caii TRACE_PRINTER ( ; *ELSE«) 

/* Print macro name •'ELSE*' in nnote if tracing on. */ 
if CURRENT_NEST_LEVEL > KESTING^LIBIT 
then 
nexit 
f i 

call YERIFY_END( ; * IF* , BLEND) 

/* Verifies current block has the name specified by the BLEND= 

operand on the ELSE macro (if any) and that it is an IF block. 
Various errors receive messages and either intermediate blocks are 
BLENDed as a fixup or EHROB^OCCUERED is set. */ 
if EHROR^OCCUBRED 
then 
mexit 

if 0PERAND2(CURBB»T_NEST_LEVBL) = 'ELSE* 
then 

nnote <8, «ST3C1302 ELSE HAS ALREADY BEEN GSNEEATBD FOB CURRENT IF*) 
me xi t 

Ik 

if 0PERAND1 (CURREMT_NEST_LEVBL) * •* and # USEF.NAHE 
th^ ” 

/* ELSE= elsen aine specified on IF macro but different (or no) label 
field on ELSE macro. */ 

MOte (8, *STRC130 1 ELSB=* |1 OPER AND 1 (CDRBENT^MBST LEVEL) H 

» SPECIFIED OK IP BLOCK ♦ || BLOCK_HAHE (COBHENT^NEST^LEVEL) ) 

mexi t ” ~ 

fi 

ELSE_BLOCK_HO := LAST^BLOCK^NOMBER ♦ 1 

/* Get block number of upcoming ELSE block. */ 

3 §nerate {* B $' il else_block_no j| *end*} 

/* Generate branch to end of ELSE block. ♦/ 
if EXIT_LABEL_BEQD(CUERENT_NEST_LEVEL) 

tl)§a 

IP_BX1T_LABEL := *$* || BLOCK_NUMBER (CURR ENT NBST LEVEL) Ji *Xir' 
EXIT_LABEL_REQD (CURBEHT^NEST_LEVEL) false” 

Exit label has been postponed tc FI. ♦/ 

call POP_OLD_8LOCK ( ; ) 

Remove IF block from stack* ♦/ 
sail P05H_NEN_BLOCK <BSER_NAHB; 

BLOCK_TYPE_VALUE= »IP* , /* Must be marked as «IP« block for FI»s 

call to VEHIFY_END. ♦/ 

E N D_ LA BE L_V A LU E ^^t rue , 

0PERAKD2_VALUE=*EISE* , 

OPEHAKD3_VAiaE=IP_EXIT_LABEL) 

/* Generate new block in structure. It is marked as an IF block 

to simplify FI checking; *»ELSE" is stored in OPEBAND2, however, 
to indicate that an ELSE has been generated for this IF, An END 
label will be required for the blcck and, if the IF block was 
marked as needing an XtT Label, save it in OPERAND3, ♦/ 
if USER^NAME / •* 
then 

gen^a^ (USER_NAHE ]| * DS OH*) 

/* Define outstanding label. */ 

kk 

mend 


«0*0« 0« 0*0*0 •0*0«0*0«0*0«0«0«0«o«0* 0*0 *0*0 *0*0 •0*0« 0*0 *0* 0*0*0* 0*0*0*0*0*0*0«0«0*0*0«0*D*0*0*a*0«0* 
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1S001, 

15002, 

15003, 


( J USEB^NAME) 

/* Geuerates end to aatch IP (or ELSE) block, 
occurs , ♦/ 


Standard block closing 


15005. 

15006. 

15007, 

15008. 

15009. 

15010. 

15011. 

15012. 

15013- 

15014, 

15015, 

15016, 

15017. 

15016, 

15019, 

15020. 

15021. 

13022. 

15023. 

1S024. 

15025. 

15026. 

15027. 

15028, 

15029. 

15030. 

15031. 

15052. 

15033, 

15034. 

15035, 

15036. 

15037, 

15038. 

15039. 


cali THACE_PfiINTEH { ; *FI') 

/♦ Print aacEo name ”FI” in mnote if tracing on, ♦/ 
if CaBfiEHT_KEST_LEV EL > N ESIING_LI HIT 
then 

call POP_OLD_BLOCK ( ; ) 

aexi t 

caii VEBIFY_END ( ; 'IF», OSEB^NAHE) 

/* Verifies current block has the name specified by the USEH.nahb 
operand on the FI macro (if any) and that it is an IF block. 
Various errors receive messages and either intermediate blocks are 
BlENDed as a fixup or E HfiOB_CCCU BRED is set. 

{Lemma; If COREENT_NEST_L£VEL > 0 and 

(USER_NAME = ' • or - BLOCK^NAH S (CflRfiENT_NEST_LE VEL) ] and 
BLOCK TYPE (CUH8EN1_«EST_LEVEL) - *IF*, then 

EFROfi_OCCUR0BD will be set false and cnBREHT_N£ST_LEVEL will be 
unmodified.) */ 
if ERR0B_0CC0HHED 
^tjien 

oexit 

fi 

if OPEBARD1 (CUBRENT_NEST_LBVEL> * ** 

^iSote (8, »STBC1501 ELSE BLOCK \\ OPEBAMDI (CUBRE«T_SEST_LEVEL ) 

\i •« MOT FOUND') 

call POP OLD^BLOCK ( ; OPEBAMD3 (CORREMT^NEST^LEVEL) ) 

/• Delete current block, generating END and XIT labels as required, 
and popping stack, (Lemma: Execution of POP_OLD_BLOCK always 

results in decrementing of CORRENT.NEST_LEVEL by exactly 1.) V 

m end 

/♦ {Lemma; If CURRENT NBST_1EVEL > 0 and 

[0SER_NANE = " or “ BLOCK^NA ME (CUHBEMT^N EST^LEVEL) ] and 
BLOCK TYPE (CURRENT_NEST_LEVEL) - 'IF* at entry to FI, then 
caBRENT_BBST_LEVEL will fee decremented by exactly 1,} */ 


•o*o*o»o*o *o *o*o«o*o*o •O*0"0«0«0*0*0w0*0»0 


•o«o*o*o«o*o*o*o«o*owo«o«o#o«o*o*o*o*o*o*o«o*o*o«o«o«o«o* 
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21001 . 

21002 . 

21003. 

21004. 

21005. 

21006. 

21007. 

21008. 

21010 . 

21011 , 

21012. 

21013. 

21014. 

21015. 

21016. 

21017, 

21016. 

21019- 

21020 . 

21021 . 

21022 . 

21023. 

21024. 

21025. 

21027. 

21026. 

21030. 

21031. 

21032. 

21033, 

21034. 

21035. 

21036. 

21037, 

21038. 

21039, 

21040- 

21041. 

21042. 

21044. 
2104S. 
21046. 
2104 7. 
21048. 
21049. 
21050. 
21051. 
21052. 
21053. 
21054. 

21056. 

21057. 

21058. 

21059. 

21060. 

21061. 

21062. 

21063. 

21064. 

21065. 

21066. 

21067- 

21068, 

21069. 

21070, 

21071. 

21072. 

21073. 


aaSEO DO (DSEH^NAME; SASK^) 

/* Create a block in the structuret Save any inforaation needed by 

OD. Generate conditional tests to loop according to UNTIL and iHlLE 
conditional expressions. Insure UNTIL tests are not checked on first 
execution. Generate USEfi_HA«E, if any, on first executable 
instruction. Order of generated code follows. (Each section nay be 
onitted in certain cases; see decision table in documentation for 
details. ) 


FLOW 

POINT 

0: 

FLOH 

POINT 

1: 

FLOW 

POINT 

2i 

FLOH 

POINT 

3: 

FLOW 

POINT 

4; 

PLOW 

POINT 

5; 

PLOW 

POINT 

6: 

FLOW 

POINT 

7; 


FLOW 

POINT 

6: 

PLOW 

POINT 

9s 

PLOW 

POINT 

10: 

FLOH 

POINT 

11: 

FLOH 

POINT 

12: 


Branch to entry point for total block. 

Start of UNTIL tests, labeled f nnn PI . 

Branch on success of UNTIL tests. 

Fall-through on failure of UNTIL tests. 

Start of WHILE tests, labeled SnnnNl. 

Branch oi; failure of HBILE tests. 

Fall-through on success of WHILE tests. 

Start of internal looping code (user code between 00 
and termination of DO loop by OD, ATEND, or 
ONEXZT) , labeled SnnnBBG. 

End of internal DO code 

Start of looping branch (BCT, BXH, or BILE) , 
labeled Snn^LPB. 

Branch of looping branch. 

Pall-through of Iccping branch. 

End of total block, labeled S^nEND. 


Plow points 1 through 7 are generated by DO; 8 through 12 by 
TEBHINATE_DO_LOOP. */ 


H0ILB_INDEX, /♦ Index within SYSLIST of start of WHILE operands; 

initially points to UHILE keyword but eventually points to start of 
conditional test. ♦/ 

NHILB_END^INDEX, /* Index within SYSLIST of end of WHILE operands. */ 
UNTIL_IHDEX, UNTIL.EN C_INDEX, /♦ Same as iBILB counterparts. ♦/ 
0PEHAND_P0RMAT, /♦ Column number of DC decision table (see documenta- 
tion) which indicates what operands are present, •/ 

1, /* Temporary work variable. V 

LB, Index within SYSLIST of the looping branch (BCT, BXH, or 
aXLE) . ♦/ 

LASTOP /♦ Index of last positicnal operand of DO macro which is 
considered valid, •/ 


WHILE^PHESENT, UNTIL^PRESENT, 

/♦ Indicates a looping group (a looping branch and/or a 

conditional test) of the indicated type is present, ♦/ 
LB_LABEL_fiEQ, 

/♦ Indicates whether the looping branch requires a label. */ 
WHILE_COND_TEST, DBTIL_COHD_TBST, 

/♦ Indicates a conditional test of the given type is present. ♦/ 

TH IS_C0NDI TI ON AL.R ECD 

/♦ Indicates the currently processed type (WHILE or DNTIL) includes 
a conditional test. ♦/ 


char 

ia_0PC0DE_ID, 

/♦ Opcode of looping branch; BCT, BXH, or BXLE. ♦/ 

LB_OPERAKD1, LB_OPERAND2, 

/♦ Operands of the looping branch, if present. */ 

LB_LOGrc^OP, 

/♦ Logical operator (“AND” or ”OR”) which connects the looping branch 
and the conditional test, if both are present. ♦/ 

LOOP! NG^BRANCH^TYPE, 

/♦ or "UHTIL”; indicates position of looping 

branch. ♦/ 

LA BEL , 

/* Any outstanding label waiting to be generated* */ 

PIKST^ID, 

/♦ Label required at start of conditional test being processed. <'/ 
HAIN_0P ' 

/♦ Logical operator (“AND” or «OR«) which connects WHILE and UNTIL 
looping groups, if both are present. V 
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21075, 

21076. 

21077, 

21078. 

21079. 

21080, 

21061. 

21062. 

21063. 

2108a, 

21085. 

21086. 

21087, 

21088. 

21089. 

21090. 

21091. 

21092. 

21093, 

2109a. 

21095, 

21096, 

21097. 

21098. 

21099. 

21100. 

21101. 

21102 . 

21103. 

2iioa, 
21105, 
21106. 
21107, 
21108, 
21109. 
21110. 
21111. 
21112. 
21113. 
211ia. 
21115. 
21116. 
21117- 
2 1118. 
21119. 
21120. 
21121. 
21122, 
21123. 
21124. 
21125, 


call TRACE_PRIHTER ( I *00*) 

”'/♦ Prints nacro nane ”DO" in innote if tracing cn, ♦/ 
call POSH NEW BLOCK (USER NAME; BLCCK^TYPE_V A10E= • CO* ) 

/* Define^new block;^ add to stack. Initialize block specifications. 

Note block type and set up unique BLOCK_LABBL_PBEPIX for use in 
generating unique labels, */ 
if ERB0R_0CCURRED 
then 
piexi t 
f i 

if REL # •* OX MASK * 
then 

mnoie <8. •5TRC2113 REL= OR MASK= NOT IN PARENTHESES — IGNORED*) 

fi 

LAisL := USER_NAME 
call DO_SCAN_QPERAHDS 

'' /♦ Collect scaning information and looping branch (BCT, BXH, and 

aXLE) information from operands. Set OPER AND_FORMAT based on 
these values, ♦/ 

if OPERAND_FOBMAT P 0 and * 10 and 
P l2 and * 19 

then 

END_LABEL_REgD{CURRENT_NEST_LBVSL) true 

f i 

if^DEBUG_BLOCKCOUNTS_REQD 

theii /* Generate reset of current loop count- */ 
generate (LABEL || * SB Ifl*) 

LABEL ;= * » 

aanctate (' STH 1** jl BLOCK_LABEL_PRBPIX |t *D0L*) 

U 

if 0PERAND_F0RHAT P 0 
^ then /* Not infinite loop. */ 
call DO_BRANCH_FOfi_LOCP_ENTRY 

/♦ Generate flow point 0 branch, if required, to proper label to insure 
UNTIL tests are not made before first loop, ♦/ 
call DO_G2NERATE_ALL_CONDITIONAL_TESTS 

/* Cause WHILE and UNTIL tests to be generated (flow points 1 through 
6) with proper labels. ♦/ 

li 

call 0O_LABEL_BL0CK 

/* Store begin label (flow point 7) into lABEL. */ 
gall DO_INFO_SAVE 

Insert into stack all information required by TERflIN ATE_D0_L00P to 
close loop (flew points 8 through 12) . V 
call DO_T RAC ENCOUNTERS 

/♦ Generate any debugging counters, etc, ♦/ 
if LABEL P » • 
then 

gen erate (LABEL J( * DS OH*) 

fi 

mend 


• O«0*0« 0*0*0 * 0 * 0 * 0 * O* 0 * 0 * 0 * 0 * 0 # 0 * 0 * 0*0 * 0 * 0 * 0 * 0 * 0 * 0 * 0 * 0 *^ 0 * 0 *Q* 0 * 0*0 *0 * 0 * 0 •©• 0 * 0 * 0 * 0 * 0 « 0 * 0 * 0*0 * 0*0 *o* 
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21127- £COC DO_SCaN_OPEBANDS 

21128. /* Collect kaiLE.lNDEX, HHI LE_EKD_1HDEX, OBTIL^INDEX, □»TIL_EHD_I!aDEX, 

21129. (limits of corresfooding conditional test's operands within the 

21130, SXSLIST) and note in ¥HILE_COND_TEST and 0 HTIL_CO»D_TEST whether 

21131. the corresponding keywords include a conditional test to be 

21132, generated; set looping branch information (LOOPING BRANCH TYPE, 

21133, LB_OPCODE_ID, LB^OPERAHDl, LB_OPERAND2, LB_LABEL REQ, and LB LOGIC_OP) 

21134. which must be passed to TERHINATE^DO^LOOP to close loop; and set 

21135. 0 PERAND_F0RMAT (case number code ftom decision table). */ 


21137. 

21138. 

21139. 

21140. 

21141. 

21142. 

21143. 

21144. 

21145. 

21146. 

21147- 

21148. 

21149- 

21150. 

21151. 

21152. 

21153. 

21154. 

21155. 

21156. 

21157. 

21156. 


call DO^FlND_KEYWOBDS,AMD_PfiESENCE 

/♦ Put operand index of "WHILE" and "UNTIL" keywords into xxxxx INDEX 
(or set to 0 if omitted) and note in xxxix_PRESENT whether these 
looping groups exist. Set LASTOP to index of last valid operand 
in the SYSLIST, ♦/ 

cali DO_PIND^END^INDEXES_AND_flAIK_OP 

/* For each type xxxxx (WHILE and OHTIL) which is present, put index 
of the last operand of looping group for that type into xxxxx_EKD_ 
INDEX; if both present, find logic operator which connects them 
and put it into MAIN OP, else put in null string. ♦/ 
call DO_LOOPING_BRANCH_ANC_flRST OPERAND 

/♦ Collect looping branch iniormation and step WfilLE^INDEX and 

UNTIL_INDEX to first operand of coi^ditional test”{not including 
looping branch and following operator) or set to zero if not present. 
Also set WKILE_ and UNTIL_COND_TEST to indicate presence of 
conditional tests. */ 
sail DO_SET_FOBrtAT 

/* Set type of operands according to decision table, using 
WHILE_PR£SENr, UNTIL, PRESENT, HAIN OP, WHI1E_C0HD_TEST, 
UNTIL_COND_TEST, LOOPIMG_BR AMCH_TtPB, and IB_LOGIC,OP to make 
decision. */ “ 

corp 


•0«0*0*0*0 •0«0*0»0* 0*0 •0«0a0«0«0«0«0«0«0*0*0*0* 0« O* 0« 0*0* o *o*o«o*o«o«o«o*o *o*o«o« o«o*o»o«o«o*o*o 
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21160. 

21161, 

21162. 

21163. 

21164. 


PCOC DO FIND KEtHOBDS^AKD^PHESEMCE 

-/* Find operand index af •HHILE* and «0NTIL* keywords; set to zero 
if omitted. Put index of last valid operand in LASTOP. 

Set HHILE^PfiESENT and UNTIL ^HBSEHT t^ if corresponding looping 
group is present, else set to false. ♦/ 


21166. 
21167. 
21160, 
21169. 
21170. 
21171. 
21172, 
21173. 
2117U. 
2117 5. 
21176. 
21177. 
21178. 
21179. 
21180. 
21181. 
21182. 
21133. 
21184- 
21185. 
21166. 
21 187. 
21168, 
21189. 
21190. 
21191. 
21192. 
21193, 
21194- 
21195. 
21196. 
21197. 
21198. 
21199. 
21200. 
21201. 
21202, 
21203. 
21204. 
21205. 
21206. 
21207. 
21208. 
21209. 
21210. 
21211. 
21212. 
21213. 
21214. 
:1215. 
21216. 
21217. 
21218. 
21219. 
21220. 


BHILE^INDEX, 0NTIL_INDEX 0 
if SISLIST(I) * »WBILE* aM * 'UNTIL* and 
a ’FOREVER* and * " 

^Mote {8, "STSCaiOS FIRST OPERAND HOST B1 "WHILE”, "UNTIL”, ' 1| 
•"FOBEVEB”, OR CHITTED*) 

I 'i 1 

LASTOP := N’SISUST /♦ Assuming they're all valid. ♦/ 
whil e I < LASTOP 

Search for WHILE and UNTIL keywords. V 
if SySLlST(I) =»= * WHILE* 

if WHILE INDEX ® 0 
'thefi /• No WHILE found before. ♦/ 

HHILE^INDEX ; I 
el se 

— ^Ot e <8, •STRC2101 OPERANDS AFTER SECOND "WHILE" IGNORED*) 

LASTOP :*= I - 1 


els e /* Operand was not "WHILE". ♦/ 
if SXSLIST(I) = * UNTIL* 

"then 

if UNTIL INDEX = 0 

ihiGn /* Ho UNTIL found before. ♦/ 
UNTIL^IHDEX := I 
else 

nnote (8, *STRC2102 OPERANDS AFTER 
LASTOP ;= I - 1 


SECOND »'UNTIL" IGNORED*) 


fi 


U 


u 

I ’= I ♦ 1 

od /♦ fTermination: I is incremented and N'STSLIST is fixed during 

~ loopr LASTOP < N*SISLIST. I would eventually exceed N*SXSLIST 
so it oust eventually exceed LASTOP.) */ 
if WHILS_INDEX > 1 and UNTIL^IBDBX > 1 
then /♦ Garbage operands are present. ♦/ 

<8, »STBC2114 SUPERFLUOUS LOOPING GROUP IGNORED*) 


””/♦ Decide whether WHILE and UNTIL looping groups are present. The 
possible operand formats are: 

DO UNTIL, <looping-group> 

DO WHILE, <Xoopin9-group> 

DO while, <looping -gr oup> ,<and/or>,UNTIL,<looping->-group> 
DO UNTIL, <looping-group> ,<and/or>, WHILE, <looping-group> 

DO [No operand or single operand "FOREVER” 

means infinite loop. ] ♦/ 

UNTIL PRESENT (UNTIL_IKDEX > 0) 

WHILE'pRESENI := (WHILE^INDEX > 0 Ot 
UNTIL^IHDEX > 1 or 

( {-• UNTIL PRESENT) ajid LASTOP > 0)) 

/* Last two arternatives are only to fix up when WHILE was 
omitted. */ 


cots. 


m 0*0 * 0 ^ 0*0 


•o-o«o”o*owo*o«o»o*o*o*o*o*o*o»o»o*o*o*o*o«o«g*o*o*o*o*o*o«o»o«o*o*o*o-o*o«o*o«o*o»o*o*o- 
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;i222, DO_FIBD_BUD_INDEXES_AND_MlIH_OP 

^1223, /* For each type xxxxx <HK1L£ and UNTIL) * put index of last operand of 

^1224, looping groups for that type into xxxxx_EHD_I»DEX; if both are 

21225. present, find logic operator which connects then and put it into 

21226. NiIN_OP, else HAIN_OP := NHILE^INOEX and UHTIL^INDEX currently 

21227. point to the corresponding keyword or ace zero if the corresponding 

21228. keyword is omitted or implied (due to error) , 


21230. 
21231. 
21232. 
21233. 
21234. 
21235. 
21236. 
21237. 
21238. 
21239, 
21240. 
21241. 
21242. 
21243, 
21244. 
21245, 
21246, 
21247. 
21248. 
21249. 
21250. 
21251- 
21252. 
21253, 
21254. 
21255. 
21256. 
2 1257. 
21258. 
21259. 
21260. 
21261. 
21262- 
21263. 
21264. 
21265. 
21266. 
21267. 
21268, 
21269. 
21270. 
21271. 
21272. 
21273. 
21274. 
21275. 
21276. 
21277. 
21278. 
21279. 
21280. 
21281. 
21282, 
21283. 
212B4. 
212B5. 
21286. 
21287. 
21288, 
21289. 
21290, 
21291. 
21292. 
21293. 
21294. 
21295. 
21296- 
2 1297. 
21298- 
21299, 
21300, 


NAIN_0P : • 

S0ILE_EHD_INDEX, ONTIL^BB C^INDBX LASTOP /♦ As initial guess. 
if LASXOP = 1 an^ SYSLIST(l) = ■POEEVER’ 
then 

WRILE^PRESENT, UNTIL^PRESENT ;= false 
else ^ 

if NHILE^PRESENT 
thei} 

if UNTIL_PBESENX 
then 

I WHILE^INDEX - 1 
if UNTIL^INDEX < WHILE_INDEX 

/* 8MTIL is first: "DO UNTIL, <test>,<and/or>, HHlLE,<test>" V 

UNTIL_EBD_INDEI := I - 1 /♦ Point at end of UNTIL. */ 

if SYSLIST(I) # »AND» ^ »0B» 

t hen 

ONTIL^E ND^INDEX I /♦ Error message will be printed later. ♦/ 
f i 

else /♦ NHILB is first: "DO WHILE, <test>,<and/or>, UNTIL, <test>" 

I := ONTIL^INDBX ^ 1 /♦ Point I at <aad/or>, */ 

NHILE_END INDEX ;= I - 1 
if SYSIIST(I) t *AND* and * *08' 
t hen ** 

WHI1E_END_INDEX := I /* Error message will be printed later. */ 
f i 

a 

if »BILE_I»DEX • »HILE_END IHCBX 
then ^ 

/* One of the following was entered: 

"DO WHILE, UNTIL, •••« or 
"DO WHILE, AND, UNTIL, or 
"DO AND, UNTIL, •••" */ 

Rnote (8, »STBC2109 WHILE TEST IS VOID — IGNOEED*) 

WHILE^PBESENT := false 
else ~ 

if UBTIL^INDEX ^ UNTIL^EN NDEX 
t^n 

/♦ One of the following was entered: 

"DO UNTIL, WHILE, or "DO UNTIL, AN D , WHILE, •••" ♦/ 
MOte (8, 'STRC2111 UNTIL TEST IS VOID — IGNORED* > 

0BIIL_PfiESENT := false 

U 

fi 

else /♦ WHILB.PBBSENT but not UNTIL PRESENT. */ 

if WHIIE^INDEX = WHILE_EN0,INDEX /♦ Which is equal to LASTOP. */ 
then /♦ "DO WHILE" with no ether operands. */ 

WHI LE^PBESBNT := f alse /* Ignore to get infinite DO. ♦/ 
fi 
fi 

else 

if UNTIL^PBESENT ^d UNTIL_INDEX - UNTIL EHD_INDEX 
ihen /♦ "DO UNTIL" with no other operands. ♦/ 

ONTI L^PRESBNT ;= ^Ige /♦ Ignore to get infinite DO. */ 
fi ' 

£1 

if WKILE^PRSSENT and aNTlL_PRESENT 
the n ” 

HAIN__op := *AND* /* Assumed. ♦/ 
if SYSLIST(I) = *CR* 
then 

MAINTOP := *OR* 
else 

if SYSLIST(I) # *AND* 
then 

mnote (8, *STBC2110 LOGIC OPERATOR BETWEEN "WHILE" AND "UNTIL" * I I 
•CHITTED — "AND" ASSUHED*) 
fi 
fi 
fi 
fi 

corn 


«0«0«C«0*Q*0 •0«0*0* 0«0a0*0*0*0*0«0' 


0 « 0 « 0 « 0 « 0 * 0 * 0 « 0 * 0 * 0 « 0 * 0 * 0 * 0 < 0 « 0 * 0 * 0 * 0 « 0 « 0 « 0 « 0 » 0 « 0 « 0 * 0 * 0 * 0 « 0 * 0 * 0 « 


C-16 



"DO*’ Hacro 


21 June 1973 


21302, 

21303. 

21304, 

21305, 

21306, 


groc 


DO LOOPI»G_BRARCH_AND FI BST^OPEfiAKD 

“/* Step waiLE^INDEX and DNiriL_INDEX to first operand of condAtronai 
test or set to zero if not present- collect all looping branch 
information. Set WHILE and UNTIL_CCHO^TEST to triis if appropriate 
conditional test is present (as opposed to only a looping branch). ♦/ 


21308. 

21309, 

21310. 

21311, 

21312. 

21313, 

21314. 

21315. 

21316, 

21317, 

21318. 

21319. 

21320. 

21321. 

21322. 

21323. 

21324. 

21325. 

21326. 

21327, 

21328. 

21329. 

21330. 

21331. 

21332. 

21333. 

21334. 

21335. 

21336. 

21337, 

21338. 

21339. 

21340. 

21341- 

21342, 

21343. 

21344, 

21345. 

21346. 

21347. 

21346. 

21349. 

21350. 

21351. 

21352. 

21353. 

21354. 

21355. 

21356. 

21357, 

21358. 

21359. 

21360. 

21361. 

21362. 

21363. 

21364. 

21365. 

21366. 

21367. 

21368. 

21369. 

21370. 

21371. 

21372, 


/* Assume no looping branch. */ 

LB 0 

LOQPING_BBANCa_TYPE := *NCHE» 
if UHTIL^PHESENT 
then 

UNTIL INDEX ;= UNTIL.INDfiX +1 . ^ 

/* Move UNTIL_II1D£X fron pointing at '*DNTIL'* to pointing at first 
UNTIL operand. */ 

if SXSLIST(I,1) = ‘BCT* or * BILE* or = *BXH* 
the n 

LOOPING_aaANCH_TYPB ;= 'UNTIL* 

UNTIL.COND^TEST ;= (UHTIL^END^INDEX > I) 

LB ; ” I 

/♦ OBTIL^INDEX is still pointing at the looping branch; we aren't 
sure how far to advance it yet, ♦/ 


else 

UNTIL CO HOTTEST := t£ue 
fi 

else 

UNTIL INDEX^ ONTIL^EN C.INDEX := 0 
DSTIlIcOHD^TEST :=”false 

/* Turn off all UNTIL stuff. */ 

ti 

if HHILE^PRESEHT 
then 

1, HHILE^INDEX ;= WHILE^INDEX ^ * 

/♦ Hove WHILE^INDEX from pointing at "WHILE" to point at first 
WHILE operand. ♦/ 

if SISLIST(I,1) = 'BCT' or - 'BILE* or = *fiXH* 
the n 

if LOOPING BRANCH_TYPE - *N0NE* 

then /♦ There is no UNTIL looping branch. ♦/ 

L00PING_B2AHCH^TYPE • WHILE* 

WHILE.COND^TEST (WHILB_EIiD_INDEX > I) 

LB : - I 

/* waiLE_IKDEX is still pcinting at looping branch; we aren’t sure 
how far to advance it yet. ♦/ 
if SYSLIST (I, 1) = • BCT* 

^fnote (4, *STRC2103 WARNING^"WHILE, (BCT,. . . " WILL LOOP ONE* N 
• LESS TIRE THAN VALUE IN HEGI5TER*) 


if MAIN OP = »Ofl* 
then 

~ ^Ote (4, 'STBC2104 WARNIKG--LOOPING BHANCH HAY NOT BE • | | 

•EXECUTED ON EVERY ITERATION*) 
fi 

else /* There is also an UNTIL Looping branch. ♦/ 

mnote (8. *STBC2105 TWO LOOPING BRANCHES INVALID IN "DO" — • N 
*"1BILB" IGNORED*) 

WHILE_PBESENT, WHILE_COND_TEST false 
MAIN_OP := *• . 

WHILE^INDEX^ WHILE_EHD_INDEX :* 0 
fi 

els e 

WHILE COND_TEST := true 

else 

WHILE_IBDEX, WHILS.END^INDEX 0 
WHILE_COND_TEST := false 
fi 

call DO_LOOPING_BRANCH_PROCESS 

/♦ Collect looping branch information and advance WHILB_ or 
U»TIL_INDEX over looping branch operands. ♦/ 
cocp ^ 


«o*o*o«o*o •oao»o*o»o»o*o*o*o«o«o«o«o»o#o«o*o*o*o*o«o«o«o«o»o«o*o*o»Q*o*o*o*o*o«Q*o«o»o*o*o»o«o«o"o» 
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21374. 

21375. 

21376. 

21377. 

21378. 

21379. 

21360. 

21381. 

21382. 

21363. 

21364. 

21365. 


pro c DO_LOOPl NG_BSAHCH_PflOCE5S 

/* Collect looping tranch information: 


LB_OPCODE_ID 

LB_0P£fiAND1 

LB_OPEEAND2 

l«3logic_op 

LB_LABEi_B£Q 


•BCT», ’BILE' or 
First looping-fcanch operand 
Second operand, null (or garbage) for BCT 
Logic operand connecting looping branch to 
rest of 9HILE or OHTIL, 

Indicates whether looping branch will need 
a label. 


Also step MHILE_ or UKTIL_1KDEX over looping branch, if any looping 
branch is present, LB contains it's index; else, LB = 0. ♦/ 
int QP_COUNT /* Number of operands looping branch needs. */ 


21387. 
21388. 
21389. 
21390. 
21391. 
21392. 
21393. 
21394. 
21395. 
21396. 
2 139 7. 
2139 8. 
2 1399. 
21400. 
21401. 
21402. 
21403. 
21404. 
21405. 
21406. 
21407, 
21408. 
21409. 
21410. 
21411. 
21412. 
21413. 
21414. 
21415. 
21416. 
21417. 
21418. 
21419. 
21420. 
21421. 
21422. 
21423. 
21424. 
21425, 
21426. 
21427. 
21428. 
21429. 
21430. 
21431. 
21432. 
21433- 
21434. 


LB_OPCODE_ID, IB^OPERANDI, LB_OPERAND2, LB^LOGIC^OP := " 

/♦ Assume no looping branch is present! ♦/ 
if LB # 0 

LB^OPCODE^ID := SYSLIST (LB, 1) 
if LB^OPCODE^ID * 'BCT' 
theg 

OP_COUKT := 2 
^se 

OP_COUNT 3 

fi 

if N» SYSLIST (LB) = 1 

/* Not a sublist ♦/ 

nnote (8, 'Srac2112 PARENTHESES CNITTED ABOOND ' || SYSLIST(LB)) 
else /♦ Given as a sublist. ♦/ 

LB^OPERANBl := $Y SLIST (LB, 2) 

LB.OPSRAND2 := SY$LIST(LB, 3) 
if N'$YSLIST(LB> * CP_CO0MT 
then 

mnaiS 'STRC2106 INVALID NOnSEB OF OPERANDS FOR ♦ J( LB_OPCODE ID) 

u 

LB LB ♦ 1 

/♦ LB should now point to logical operator which connects looping 
brancli to conditional test, if both are present. */ 
if (LOOPlNG_BRANCa_iypB ~ 'HHILB' and IBILE COND TEST) 

or (LOOPING_aRAMCH_TYPE = 'UNTIL* and UNTIL COND TEST) 

LB^LOGIC.OP := SYSLIST (IB) 
if LB_LOGIC^OP = 'IND* or = 'OB' 
th^ 

LB := LB + 1 /* Step LB past logic operator. ♦/ 
else 

(8, 'ST8C2107 * H 1B_L0GIC,0P || 

• INVALID AFTEfi LCOPING BRANCH — ”AND« INSERTED*) 

LS_LOGIC_CP := 'AND* 
f i 

if LOOPIKG_ERANCH_TYPE = 'HHIIE* 
then 

WHILE_INDEX := LB 

UNTIL^INDEI := LB 
f i 

^ /* Set ixxxx^INDEX to point at start of conditional test, if any- ♦/ 

£i 

LB_LABEL_BEQ i- (LOOPI BG_ BR ANCH_TYPE 'WHILE') 

corn 


«o*o«o*o«o*o«o*o*o»o«o*o*o«o«o*o*o*o*o<o*o»o»o«o*o*o»o«o*o«c*o*o«o«o*o»o»o*o«o»o*o«o»o*o«o»o*o*o»o 
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21436. 

21437. 

2143B. 

21440. 

21441. 

21442. 

<1443. 

21444. 

21445. 

21446. 

21447, 

21U4B. 

21449. 

21450. 

21451. 

21452. 

21453. 

21454. 

21455. 

21456. 

21457, 

21458. 

21459. 

21460. 

21461. 

21462. 

21463. 

21464, 

21465. 

21466. 

21467. 

21468. 

21469. 

21470. 

21471. 

21472. 

21473. 

21474. 

21475. 

21476. 

2 1477. 

21478. 

21479, 

21480. 

21481. 

21482. 

21483. 

21484. 


«DO»' Hacro 21 Jane 197 3 


£EOC DO^SBT^FORHAT , . . .. 

^ /♦ Set OP£RAHD_FOBnAT according to decision table 

tation) . ♦/ 


(see docasen- 


if WHILE^PBESENT 
" the n 

ij LOOPIHG_&flAHCH_5YPE = •WHILE* 
the n 

if WHILE^COND^IEST 
then 

if LB_LOGIC^OP = »AND* 
then 

if UNTIL^PSESEHT 
then 

if HAIN_OP - ’AND* 
then 

OFEBAiiD_POEnAT 
OfEBAND_FORMAT ; = 


U 

else 

OPERAMD_FOBMAT ;= 13 

ti 

else 

ii UNTIL_PHESEHT 
tj;hea 

if MAIN_0P = •AND* 
then 

OEERAND_FORnAT 
0EB8AND FOfirtAT := 

U 

else 

OPERAND FORMAT 14 

fi 

fi 

else 

if ONTIL^PRESENI 

ii MAINTOP = 'AND* 
then 

OPEBAKD^PORMAX := 11 




else 

OPBBAND_POBMAT := 
fi 

else 

OPERAND^FCEMAT := 10 


fi 


12 


15 

16 


17 

16 
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21486. 

21487- 


/♦ if WHILE_PBBSEHT then 

if L0CPING_3HANCH_IYPE = »IIHILE* ^hen •— 


21489- 

21490. 

21491. 

21492. 

21493. 

21494. 

21495. 

21496. 

21497. 

2149B. 

21499. 

21500. 

21501. 

21502. 

21503. 

21504. 

21505. 

21506- 

21507. 

21508- 

21509, 

21510. 

21511, 

21512. 

21513. 

21514. 

21515- 

21516, 

21517. 

21518. 

21519- 

21520. 

21521. 

21522. 

21523. 

21524. 

21525. 

21526. 

21527- 

21528. 

21529. 

21530. 

21531. 


els e 

i| LOOPING,BHANCH_T7PB = ’UNTIL* 
then 

±4 UNTIL_COKD_TEST 
then 

if LB_1DGIC^0P - ’AND* 
the n ” 

if MAINTOP = • AND’ 
then 

OPERAND^POHMAT 1 
else 

OPERAND POEMAT ;= 9 

ii 

else 

if MAINTOP = ’AND* 

OPERAND^FOBBAT ;= 6 
OFERAND_POflBAT 1 - 8 

U 

fi 

If MAINTOP ^ ’AND’ 
then 

OPERA ND_POfiBAT ;= 4 
else 

OPERAND FORMAT := 5 

fi 

fi 

else 

if UNTIL_PEBSBNT 

Use 

if HAIN_OP = ‘AND* 
then 

OPERA ND_FOa MAT := 2 
elsg 

OPERAND FORMAT 3 

fi 

else 

OPEBAND_PCflHAT := 1 
fi 
fi 

fi 
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21533. 


/♦ if WHILE_PRESEMT the n ••• ♦/ 


21535, 

21536. 

21537. 

21538. 

21539. 

21540, 

21541. 

21542, 

21543. 

21544. 

21545. 

21546. 

21547, 

21548. 

21549. 

21550, 

21551. 

21552. 

21553. 

21554. 

21555, 

21556. 

21557. 

21558. 


else 

if UMTIL_PfiESBHT 
the n 

if LOOPING_flflANCH^TYPE = 'UNTIL* 
then 

n UHTIL^COND^TEST 
th en 

if LB_LCGIC_0P = * AND* 
t hen 

OPERAND^POBMAT 22 
els e 

OPEBABD_FORKAT := 21 
fi 

else 

OPEBAND^FCaHAT := 19 

ti 

ej ,s e 

OPERAND_?OBHAT ;= 20 
fi 

els e 

OPEBAND FORMAT := 0 
fi 
fi 

COT£ 
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21560. 

2156U 

21562- 

21S64. 
21565, 
21566. 
21567. 
21568. 
21569. 
21570. 
21571. 
2 1572. 
21573. 
21574. 
21575. 
21576. 
21577. 
21578. 
21579. 
21530. 
21581. 
21582. 


firoc D0_BR AHCH_FOR_LOOP_ENTHY 

^ /♦ Generate branch at flow point 0, if required, to proper label to 

ensure UNTIL tests are not Diade before first loop. */ 

docase OPERAND^FORMAT if an^ 
of 

^se <2,3,6-9> 

/♦ Branch around UNTIL conditional test to WHILE conditional test. ♦/ 

generate (LABEL || ' B * |I BLOCK„LA0EL_PHEPIX |J *W1') 

LABEL := * ‘ 
esac 

case (10-18) 

/♦ Branch to WHILE looping branch first. ♦/ 
gene rate (LABEL H * B • H BLOCK_LABEL_PREFIX J| *LPBM 

LABEL • 

esac 

^ae (20,21,22) 

/* Branch around UNTIL conditional test to DO internal code. */ 
aeneiate (LABEL II ’ B • l| BLOCK_LABEL_ PREFIX |j »BEG») 

LABEL ;= ♦ * 

esac od 

corn 
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21564. ficoc DO_GEHEflATE ALL^COMDITIQ HAI^TESTS , 

21585. /♦ Cause^WHILE and UNTIL conditional tests to be generated with proper 

21566, labels, ♦/ 

21587. ifit PASS /* Looping index, ♦/ 


21589. 

21590. 

21591, 

21592. 

21593. 

21594. 

21595, 

21596, 

21597. 

21596. 

21599. 

21600. 

21601. 

21602. 

21603, 

21604. 

21605. 

21606. 

21607. 

21608. 

21609. 

21610. 

21611, 

21612. 

21613. 

21614. 

21615. 

21616. 

21617. 

21618. 

21619. 

21620. 

21621. 

21622. 

21623. 

21624, 

21625. 

21626. 

21627. 

21628, 

21629, 

21630- 

21631. 

21632, 

21633, 

21634. 

21635, 

21636. 


PASS ;= 1 
ifhiiS PASS < 2 
do 

ij; PASS = 1 
the n 

cjll DO_UNTIL_PRErHOCBSS 
else 

c all DO_WHILB^PBEPftOCESS 


fi 

/♦ The D0_XXXXX_PBEPB0CESS proc 
THIS^CONDITIO NA1_BEQD 
FIHST^INDEX 
LAST^INDEX 
UNIQUE_LABEL_ID 
ULTIMATE_BBANCH_LAflEL 
ULTIflATE“FALLTHB0_LA8EL 
ULTIHATE_FlLLTBRU,CONDITION 
FI BST_I D 

to insure proper test generation, 
i^ THIS CONDITIONAL^REQD 


must set: 

fron XXX xx_C0N DETEST 

froi xxxxx^INDEX 

froH xxxx X_END_INDEX 

with the first letter of xxxxx 

with the branch target 

uith the fallthru name 

with the proper ?alue 

with the first label 

V 


the n 

call DO GE«ERATE_CONDITIONAL_$ET 

/♦ Generate code to pass control to the ULTIflATE_PALLTflRU^LABEL (or 
to fall through to it) if the conditional test specified by 
SYSLIST (FIBST INDEX) through SYSLI ST (LAST^INDBXJ has the logical 
value stored In aLTIEATE^FALLlRBU.CONDITION; else pass control to 
the ULTIMATE BSAHCH LABEL, If a branch is generated to the 
ULTIMATE FALLTHflU_LABBL, set F ALLT 0 HO_LABEL_OSED to trj^; 
else set'it false . Include definition of any LABEL outstanding 
before generating code. */ 


if PASS = 1 
" then 

call DO UNTIL PCSTPBOCESS 

/* For those cases where the UITIMATE^FALITHHU^LABEL was not to 

follow the conditional test as the next sequential instruction, 
generate an unconditional branch to the ULTIMATE_FALLTHRO^LABEL 
and clear FALLTHRa_LABEL_DSED. ♦/ 


if’*?ALLTHBU_LABEL_USED 

tl^en 

LABEL ULTIMAlZ_PALLTHRn_LABIL 

/* Generate label at next opportunity. ♦/ 
fi 

fi 

PASS ;= PASS ♦ 1 

od /♦ {Termination: PASS incremented only (not modifiable by called 

procs) , must eventually exceed 2,} ♦/ 




•o«o*o*o*o*o«o*o*o*o»o«o*o# o«o*o*o«o«o«o*o«o*o^o«o*o»o*o«o«o»o«o*o«o«o*o»o*o*o«o*o«o*o»o*o*o*o*o*o* 
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21636. £roc 00_UHTIL_PSBPBOCESS 

21639, ^ /♦ Must set up THIS_CCHD1TI0HAL_REQD, PIRST_I»DBX, LAST_IHDBX, 

21640, UNIQOE_LABEL_ID, OtTIMATB BEANCH_1 ABZl^”ULTIH ATE_F ALLTHRU LABEL, 

21641, QLTIMATE_FALLTHBU_CONDIXION, and PIBST^ID. ♦/ 


21643, 
21644. 
2 1645. 
21646. 
21647- 
21646. 
21649. 
21650. 
21651. 
21652, 
21653, 
21654. 
21655. 
21656. 
21657, 
21658. 
21659, 
21660, 
21661, 
21662. 
21663, 
21664. 
21665. 
21666. 
21667. 
2166€. 
21669, 
21670, 
21671, 
21672. 
21673. 


THIS^CONDITIOHAL HEQD UMTIL COND TEST 
if UNTIL^COJfO^TEST 
th^ 

FIRST^INDEX := UNTIl^lNDEX 
LAST^INDEX ;= 0 NTIl1pmD_INDEX 

ULTia ATE_BRABCH_LABBL := BLOCK^LABEL_PBEPIX || *EHD’ 

/♦ Flo¥ point 2 Qornally connects to flow point 12. ♦/ 

OLTIM ATE_FALITHfiO_LABBL := BLOCK_LABEL_PREPlX || *M1* 

/♦ Plov point 3 usually falls through to flow point 4. ♦/ 
DLTiaATE_FALLTHEO_CONDIlIOS ;= false 
ON IQ a E_L A BELAID ;= *0* 

FIRST^ID iL0CK_IABEL_PBBFIX || ’Ul* 
do case OPERAND FORMAT ifany 
5>f 

ca^ {3,8,9) /* UNTIL test ORed with BBILE test. ♦/ 

ULTIMA TE^PALLTHBU^CONDITiaia ;= 

aLTIMATE_BRANCH_LABEL := BIOCK^lABBL PREFIX || *BBG* 
e sac ^ “ 

case (11,15,17) /♦ OSXil test ANDed with HBILE looping branch. ♦/ 
DLTIMATE_FALLTa FU^LABEL BLOCK LABEL PREFIX || »LPB* 

gsas 

ca^ (12,16,18) /♦ UNTIL test ORed with BHILE looping branch. */ 
ULTIMATE_BHANCH_LABSL := BLOCK LABEL_PRBFIX || *LPB* 
0LTIMATE_FAL1THBU_LABEL := BLOCK^LABEt PREFIX JJ »BEG* 
e sac ~ 

(20,21,22) /♦ UNTIL conditional test only. */ 
ULTIHATB_PALLTHBO_LABEL z~ BLOCK^LABEL PREFIX || »BEG* 
e sac “ 

esacod 

U 

corp 


«0«0«0«0*0*0*0»0*0* 0*0«0«Q*0-0*0*0#0«0«0*0»0*0«0*>0*0*0*0*0*040«0#0*0*0*0*0»0*0*0*0*0«0*0*0«0*0*0*0* 
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21675. fir^C DO WHILE PREPBOC8SS 

21676. ' " “/* "ust set up THIS_CCKDITIONAi^REQD, PIBST^IHDEX, LAST^IKDEX, 

21677. aMIQUE_iABEL_ID, ULIIH ATE_BHAN CH^LABEL , aLTISATE_FALLTHBO_LA BEL, 

21678. ULTIMATE_rALLTHfiD_COMDITION, and^FIRST^ID. V 

21680- THIS COMDITIONAL^REQD ;= WHlLE_COMD_TEST 

21681. if WHILE_C0ND_TEST 

21682 . "' then 

21683. FIRST_I8DEX HHILE^IHDEX 

21664. LAST_INDEI ;= WHI iE^ZNC^INDEX 

21685. ULTIM ATE_BHANCH_LABEL ;= BLOCK_LABEL_PHEFIX tl *END^ 

21666- /♦ Flow point 5 always branches to flow point 12- */ 

21687. DLTIH ATE_FALLTHRU^LABEL ;= BLOCK_LABEl_PREFIX U *BEG' 

21688. /♦ Flow point**6 always falls through tc flow point 7. */ 

21689, ULTI«ATE^FiiLLTHRlJ_COMDITION := true 

21690. UNIQUE LABEL ID := *W» 

21691. FIRST_ID := BLOCK_IAaEL_PBEPlX || *W1* 

21692. fi 

21693. c orp 


•o«o«o»o«Q *o •o«o*o* owo •o*o«o*o*o^o* 0 ^ 0 •o*o*o*o*o*o«o*o*o*o« o«o*o*o»o*owo*owo«o*o*o*o*o«o*o*o*o«o*o* 
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21695, 

21696, 

21697. 

21698, 

21699. 

21700, 

21701, 

21702, 

21704. 

21705, 

21706. 

21707. 

21708. 

21709. 

21710. 

21711, 

21712. 

21713. 

21714, 

21715. 

21716. 

21717. 

21718. 

21719. 

21720. 

21721. 

21722, 

21723. 

21724. 

21725. 

21726. 

21727. 

21728. 

21729. 

21730. 

21731. 

21732. 

21733. 

21734. 

21735. 

21736. 


£roc OO^GENERATE_CONI)ITIO(JAL_SET 

"/♦ Generate code to pass control to the UlTiniIE_FALLTHBU_LABEL (or 
to fall through to it) if the conditicnal test specified by 
SYSLIST(FIRST_IHDEX> through SYSLIST (LAST_INDEX) has the 
logical value which is stored in ULTI«A*IE_PALLTaHU_CONDITIOH ; 
else to pass control to the OLtl WATB_EflAHCH_LABEL. Also 
see that FALLTHIUJ_t ABEL USED is set to tru e if branch to 
□ LTI»lATE_FALLTHHlI_LAflEL^is generated. ♦/ 

FALLTHRU_LAflEL_USED faJ^e 
if LABEL ft » * 

^gn /♦ A label is waiting to be generated- ♦/ 
if FIRST^ID = » • 
th e fl 

/* No special label is required at the beginning of this conditional 
test, ♦/ 

PIRST_ID ;= LABEL /♦ Put the label on the conditional test. */ 
else 

We also have a label waiting for the conditional test. ♦/ 
g enera te (LABEL ( | « DS OH*) 

/* Get the IA6EI label out of the way, */ 

li 

LABEL := »* 
fi 

call CONDITIONAL^EXPSESSICS PBOCSSSOB (FIRST_ID; SYSLIST) 

/* Generate code corresponding to the operands of the current set 

(WHILE or UNTIL) of the DO operands (referred to collectively as 
SYSLIST) . Only the SYSLIST can be passed directly as arguments; 
the following variables are effectively arguments but are passed 
in global variables: 

FIBS I_1NDEX, 

LAST^INDSX, 

ULTIflATB_BRANca.LAB EL, 

ULTIMATE^FALLTHHO LABEL, 

UKIQUE^LABEL^ID, 

failthbu_labIl used. 

Process operands oJ the SYSLIST beginning with SYSLIST (FIRST^INDEX) 
through SYSLIST (IAST_INDEX) , generating the indicated tests to pass 
control as indicated above. If a branch is made to the 
ULTIHATE.PALLTHRU^LABEL, then FALLTHRO^LAB EL_USED is set, else 
it is unaltered, ♦/ ~ 

corp 


4 0«owo* 0*0 *o 0*0* o*o«o»o«o«o*o •o*o*o*o»o*o*o*o*o«o^o*ooo*o«o*o*o*o*o«o*o«o«o*o*o*o*o*o*o*o*o*o*o* 
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21738. 
21739- 
217^0- 
21741 - 
21742, 
i 1743- 

21745. 

21746. 

21747. 

21740. 

21749. 

21750. 

21751. 

21752. 


proc DO ONtlL POSTPROCESS ^ ^ 

” ”/♦ Generate where required a branch to follow the UNTIL tests to 

transfer control to a non-segnential ULTIH ATE_FALLTHBU_LABEL - 
see decision table- flow point 3. Insure F 4 LLTHfilI_LAEEL„USED 
is turned off so the label will not be generated on the next 
sequential instruction. ♦/ 


^£a^ OPEHAND^FOBMAT ifanx 
of 

case (11- 15-18) 

~5inerate (• B ' u OLTIB ATE.FALLTHBU^LABBL) 

rALlTHRU_LABEL_OS£D l~ false 

e§ass^ 


• 0 *O*O« 0 * 0*0 *o*o*o* 0*0 •o»o*o*o*o*o*o*( 
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21754, £roc DO_LiBEL_BLOCK 

21755, ^ /♦ If^a begin label is reguired, generate it, ♦/ 


21757, 

21758. 

21759, 

21760. 

21761. 

21762. 

21763, 

2176g. 

21765. 

21766, 

21767. 

21768- 

21769. 

21770, 

21771, 


docase OPEBAND^FOHHAT ifai^ 

“‘of^ 

case <0,3,5,8-12,14,16-22) 

If LABEL * aiOCK^LABEL^PREPlX J| 'BEG* 
then 

/* Begin label oust be generated, ♦/ 
if LABEL # • » 
then 

gener ate (LABEL |i * DS OH*) 
LABEL ;= BLOCK LABEL FBEPIX jj 'BEG* 

fi 

esac 

esacod 

22 ££ 


•o«o*o*o«o#o *o*o«o* 0*0 •o*o»o»o«o«o»o*o*o*o*o*o* 0»0«0*0*0*0»0*0«0*0*0^0*0*0*0«0*0*Q*0«0«0*0*0»0*0»0* 
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21773- 

2177U, 

21775. 

21776, 

21777. 

21778, 


£roc DC_INFO_SAVE 

/♦ Insert into stack all information required to close loop at 
TERMINATE_DO_LOOP. ♦/ 
cha£ B8, BIO, B11 ^ 

/* One character codes indicating flow point tc follow points 8, 
10, and 11- V 


21780. B8 := *»• /* Assume branch at point 8 is to HHILE group (point U) - */ 

21781. 010, Bll ;= *0* 

21782, /♦ Assume no looping branch (thus no branches at 10 and 11). */ 


21784. 
21785. 
21786, 
21787. 
21788. 
21789, 
21790, 
21791. 
21792. 
21793- 
21794. 
21795- 
21796. 
21797. 
21798- 
21799, 
21800. 
21801. 
21802. 
21803, 
21804. 
21805. 
21BQ6- 
21807. 
2 180 8. 
21809. 
21810, 
21811. 
21812, 
21B13. 
21614. 
21815. 
21816. 
21017. 
21618, 
21819. 
21620. 
21821. 
21822. 
21823. 
21824. 
21825. 
21826. 
21827. 
21828. 
21829. 
21830- 
21831. 
21632. 
21833. 
21834, 
21835, 
21636. 
21837. 
21838. 


/* Set 88. V 

docase OPERAND^FORrtAT ifan£ 

of 

"ca^ (2,3,11,12,15-18,20) 

/* UNTIL conditional test but no UNTIL Looping branch. */ 

B6 »0* /* To flow point 1. V 
es ac 

ca^ (4-10,13,14,19,21,22) 

/♦ UNTIL looping branch or no UNTIL but WHILE looping branch. */ 
B8 := »L* /♦ Fall through to point 9, V 
es ac 

case (0) /♦ Infinite loop. */ 

08 := *B* /♦ To flow point 7. V 
esac 
esacod 

if LOOPING_BfiANCH_TYPE pk *NOHB* 

ilisji 

/♦ set BIO. ♦/ 
doca se OPEBAND^FORMAT onl y 
of ^ 

case (4,7,13,15,16) 

B10 ;= /♦To flow point 4. V 

case (5, 9-12,14, 1> 19,22) 

BIO »B» /♦ Tc flow point 7. ♦/ 
esac 

case (6,8,21) 

B10 ;= ♦U* /* Tc flow point 1- ♦/ 
esas 
esa cod 

/* Set 011. ♦/ 
doc^e OPEHAND^FORHAT ©six 
of 

c ase (4,6,10-13,15,16,19,21) 

B11 := ‘N* /* Fall through to flow point 12 (end of DO block). V 
e sac 

cg§c (5/8,14,17,18) 

B1 1 := *W* /♦ To flow point 8. */ 

case (7,9,22) 

"b 11 := *U* /* To flow point 1. V 
e sac 
esa cod 
fi 

INfShM ATIOM(C aHBEMT BEST. LEVEL) := B8 |j ElO [) Bll || LB_LABEL_REQ || 
fals e iT f als e || f als e )| false 

/♦ Byte 5 is set true when the Loop is terminated (by ATEND, OHEXIT, 
or OD) « 

Byte 6 is set trgg when ATBND occurs for this DO. 

Byte 7 is set tru e when an ONEXIT occurs for this DO. 

Byte 8 is set true if a FIN label is required in the OD code. ♦/ 
OPERANDI (CUBBENT_NEST_1E?EL) := LB^OPERANDI 
OPERAS D2(CURHENT_NEST LEVEL) LB_0PERANC2 
OPEHAND3 (CDHEENT_NESt3iE¥EL) := LB,OPCODE^ID 


< 0 « 0 * 0 » 0 * 0 * 0 0 * 0 * 0 * 0 •o*o«o*o«o«o«o*o*o*o«o*o*o*o*o*o*o*o*o*o*o*o*o*o*o*o*o*o*o*o*o*o*o*o*o»o*o*o* 
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21840. D0_TRACE_C0UMTEBS 

21841. /♦ If debugging, generate block name and/or counters for block and 

21842. loop execution. V 


21844. 

if DEBOG_aLOCKCOUNTS_KEQD or 1 

DEBUG 

_ELOCKNAMES flEQD 



21845. 

then 






21S46. 

if DEBUG_BLOCKCOUNTS^fiECD 






21847. 

the n 






21846. 

generate {LABEL 1 1 • 

LH 

1# ’ 

\ 1 BLCCK_LABBL_PREFIX 

II ' 

'DOL») 

21849. 

LABEL •» 






21850. 

generate (* 

LA 




21851. 

generate { ' 

STH 

1, * 

1 i BLOCK_LABEL_ PREFIX 

II ' 

DOL') 

21852. 

generate ( * 

LH 

1, * 

1 j BLOCK LABEL PREFIX 

11 ’ 

'DTR*) 

21853, 

generate 

LA 




21854. 

generate (* 

STH 


1 1 BLOCK_LABEL_PREFIX 

il 

*DTR»| 

21855, 

fi 






21856. 

/* Generate branch around 

block 

name and/or block counts. 

*/ 

21857. 

aenetate (LABEL |J * B 

f 

n BLOCK LABEL PREFIX J| »GO 

M 


2185B. 

LABEL ;= BLOCK LABEL FfiEFIX J| 

♦GO* 




21859. 

if debug_blocknahes_reod 






21860. 

then 






21861. 

generate {" 

DC 

C* " 

II BLOCK_HAME<CUHRENT_ 

KEST LEVEL) 

21862, 

” » , OH » 0 • « ) 






21865- 

ti 






21864. 

if DEBOG_BLOCKCOUNTS_RECD 






21865, 

then 






21666. 

aifierate (BLOCK^LABEL 

_PBEFIX 1 \ 

«D0L DC H*0* COHRENT 

LOOP COU 

21867. 

generate (BLOCK^LABEl' 

'PfiEFiX J ) 

"ETR DC H*0* OVERALL 

LOOP COU 

21866. 

fi ” 






2 1369. 

a 






21870. 

cgrg 







1 I 


NT") 

NT") 


« 0 *Q«Q* 0«0 »0 # 0 « 0 * 0 * 0 » 0 « 0 * 0 # 0 *o« 0 « 0 ^ 0 * 0 • 0 *O*O*O* O*Q»O*0*0» 0 * 0 ^ 0 • 0 * 0 * 0 * 0 * 0 * 0 * 0 * 0 * o*o*o*o*o* o*o*o*o*o* 
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23001. Dacro &TEN0 < ; USER^MlflE) ^ 

23002- /♦ The ATEND oacro causes the generation of the loop-teroinating code 

23003- for the surrounding DO block if such code has not yet been generated. 

23004. The target for normal loop termination is then defined to allow the 

iSOOsI code which follows to be executed upcn normal loop termination. If 

23006- the ATEND has been preceded by an CNEXIT macro^ the branch is generate 

23007. to the OD for the OHBXIT block. ♦/ 

23008, bit . . . • n 

23009, ATBND^GEHNED, /* Indicates whether ATEKD has teen generated previously 

23010, ” tor this block. ♦/ 

23011 . TDL GBNHED, /♦ Indicates whether the TERMIN ATE_DO_LOOP macro has 

23012, been evoked for this DO by a previous nacre (properly, only 

23013. by an ONEXIT) , */ 

23014. PI N_t ABEL_HEQD /* Indicates a branch to the label ”?nn^FIN” has 

23015. been generated and oust be defined at OD time. V 

23016- char 

23017. ^ ISPO /♦ Holds copy of INFOfiMATION (CUEBENT_NEST_LEVEL) . */ 


23019. 
23020. 
23021. 
23022. 
23023. 
23024. 
23025. 
23026. 
23027. 
23028. 
23029. 
23030. 
23031. 
23032. 
23033. 
23034. 
23035. 
23036, 
23037. 
23038. 
23039- 
23040. 
23041. 
23042. 
2304 ^. 
23044. 
23045. 
23046. 
23047. 
23048. 
23049. 
23050. 
23051. 
23052- 
23053. 
23054- 
23055. 
23056, 
23057. 
23058. 
23059. 
23060, 
23061. 
23062. 
23063. 
23064. 
23065. 
23066- 
23067. 
23068- 


call TBACE^PRINTER ( ; • ATEND*) 

/♦ Prints macro name *'ATEND” in mnote if tracing on. */ 
if COfiRENT NEST LEVEL > N ESTI HG_LI MIT 
’*~then 

mexit 

fi 

call VERIFY_EKD ( ; *D0*, USER^NAtlE) 

/♦ Verifies current block has the name specified by the USER^NAME 
operand on the ATEND macro (if any) and that it is a DO block. 
Various errors receive messages and either intermediate blocks are 
BLENDed as a fixup or E RfiOR^OCCOBRED is set. ♦/ 
if BRROB_OCCUfifiED 
*“”then 

me lit 
f i 

INFO :*= INFOBHATION (CUBRENT_BEST_LEVEL) 

ATEND_GENNED := INPO[6,1] 

/* See if we've already generated an ATEND, */ 
if ATEND^GENNED 
then 

ran^G (8, 'STRC2301 WORE THAN CNE «ATEND« IN BLOCK’) 
me xit 
£i 

BLOCK LABEL_PfiEFIX |( BL0CK_NDM BER (CUHB ENT_HEST_LE7EL) 

TDL^GBNNSD := IMFOl 5, 1 ] 

*”/♦ See if we've already generated the loop-terminating code- */ 

FIN LABEL REQD := INFO[8, 1] 

*/+ Note whether a FIN label has already been referenced. */ 
if TDL_GENNED 

fksa 

call TERMINATE_DO_LOOP ( : ) 

/♦ Terminate the loop by generating any necessary back branches. */ 
else /♦ TEBHIN ATB_DO_LOCP must have been dene by previous ONEXIT. ♦/ 
generate (• B ' || BLOCK_LABEL,PREFIX || 'PIN') 

FIN_LASEL REQD tru e 

/♦ Terminate the CNBXIT block. V 

if“END_LAaEL_fiEQD(CDBBENX_NEST_LBVEL) 

generate ( BLOCK_LABEL_PREPIX || 'END DS OH') 

EH D_L ABEL_RE QD (CUE RENTON EST^LEV EL) :* false 

/* If normal block termination reguired an END label, provide it and 
note that we no longer require it- */ 
fi 

INFORM ATrON(CUREENT_NEST^LEVEL) XNFO[ 1 , 4 ] j| 

true /♦ TDL has now been generated- */ 1 I 

trui /* ATEND has DOW been generated. */ J| 

INFOn,!} fl 

PIN_LABEL_BECD /* Forward PIN^LABEL_REQD to OD. */ 

mend 


0 


o*o»o»o*o^o*o«o»o* Q«o«o»o*o»o#ovo*o*o«o*o*o*o*o»o*o*o«o»o •Q®o«o«o»ovo*o*o*o*o*o*o*o»o«o*o«o*o«o*o® 
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25001. 

25002. 

25003. 

25004. 

25005. 

25006. 

25007. 

25000. 

25009. 

25010. 

25011. 

25012. 

25013. 

25014. 

25015. 

25016, 

25017. 


n^cro ONEX IT ( ; OSER^NAflB) 

/* The ONEXiT nacro causes the generation of the loop->terDioatin g code 

for the surrounding DO block if such code has not yet been generated. 
The target for abnornal loop termination (EXIT nacros) is then defined 
to allou the code Hbicb follows to be executed upon abnor&al loop 
ternination . If the ONSXIT has been preceded by an &TEND nacro, 
the branch is generated to the 00 for the ATEND block. 

Ui 

OHEXIT^GEHHED, /* Indicates whether CtIBXIl has been generated 
previously for this block. .♦/ 

TDL^GBNNED, /♦ Indicates whether the TEHHIHATE_DO_LOOP macro has 

been evoked for this DO by a previous macro (properly, only 
by an ATEND) . ♦/ 

FI N_L ABEL^fiEQD /♦ Indicates a branch to the label "innnFIH” has 
been generated and Bust be defined at OD tine. */ 

char 

INFO /* Holds copy of INPOBBATIOH (CDBHENT NEST LEVEL), ♦/ 


25019. 

25020. 

25021. 

25022. 

25023. 

25024. 

25025. 

25026. 

25027. 

25026. 

25029. 

25030, 

25031. 

25032. 

25033. 

25034. 

25035. 

25036. 

25037. 

25038. 

25039, 

25040. 

25041, 

25042. 

25043, 

25044. 

25045. 

2S046« 

25047. 

25040. 

25049. 

25050. 

25051. 

25052. 

25053. 

25054. 

2S055. 

25056. 

25057. 

25058. 

25059. 

25060. 

25061. 

25062. 

25063. 

25064. 

25065. 

25066. 

25067. 

25068. 

25069. 

25070- 

25071. 

25072. 

25073. 


£1^11 TBACE^PEINTER ( j 'ONEXIT*) 

/♦ Prints sacro name "ONEXIT" in mnote if tracing on. ♦/ 
if CDRREHT_NEST_LE¥EL > NESTING_LI BIT 

iiiaa 

me xit 

£ 1 . 

call VEBirY_EWD ( j ‘DO* 0SEB_BIABB) 

/♦ Verifies current block has the name specified by the OSEH^NABE 

operand of the OHEXIT macro (if any) and that it is a DO block. 
Various errors receive messages and either intermediate blocks are 
BLENDed as a fixup or ERBOS OCCQBKED is set. 
if ERfiOR_OCCUESED 
then 

%k 

INFO := INPORHATION (CURRENT NEST LEVEL) 

ONEXIT^GENNBD 2= INF0(7,t] “ 

/* See if ue've already generated an CK6XI1. ♦/ 
if ONEXIT^GENNED 
then ” 

nnote (8, *STfiC2501 robe than one "ONEXIT" in block*) 
mexi t 

££ 

if EIIT_I.ABEl_BEQD(CUfiBESJ_HBSI_lEVEl.) 
then 

anote (8^ »SISC2502 HO EXIT FOB THIS "DO"*) 
merit 
fi 

FIN_LAHEL_BEQD 2= INFO[8, 1] 

/* Note whether a FIH label ha? already been referenced. */ 
BLOCK_LABEL_PREPIX *$» || BLOCK NDBBEE (CURBENT_NEST LEVEL) 

TDL^GEHNED 2=^ INF0[5, 1] 

/♦ See if we*ve already generated the loop^terminating code. */ 
if t TDL^GENHED 
then 

call 1EEBINATB_DO_LOOF ( ; ) 

if TDL_FALLTHR0_0CC0BS 

the n /♦ Looping branch expects to fall through to END label. */ 
ge nera te (• B • H BL0CK_1ABEL_PREFIX |J *END*) 

fi ” 

else /♦ TERBIHATE_DO_LOOP must have been done by previous ATEND. ♦/ 
aenetate (* B * J| BLOCK LABEL PREFIX |J *PIN*) 

PIN^LABBL_REQD 2 = tm e “ ^ 

/* Provide branch to FIN for ATEND block. •/ 

fi 

aei^rate (BL0CK_LABEL PREFIX |1 »X1T DS 0H») 
EXlT_LABEL_RKgD(CUHBBNl_HEST_LBVEL) false 

/♦ Provide target for EXIT branch and note that it is no longer 
n eeded - */ 

INFORMATION (CUHRENT_KEST_IBVEL| 2= INFO£l,4] || 

true /* TDl has now been generated. ♦/ | | 

INFO[6,l] II 

true /♦ ONEXII has now been generated. ♦/ || 

FIN_LABEL^REQD /♦ Forward FIN_LABEL EEQD to OD. ♦/ 
mend “ 


•©•0«0«0*0 •0«0*0«0« 0*0 •Q#0*0*0*0«0* 0«O *0 


•0"0*0«0*ev0*0«0*0 *0*04 0*0*0 *0*0*0 *0*0* o«o«o»o*o*o*o*o*o*o* 
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27001 . 

27002- 

27003. 

27004- 

27005. 

27006, 

27007, 

27008. 

27Q09- 

27010- 


a^ro OD ( ; USER_NASE) 

/* Terfflinate DO loop if ATEMD or OHEIIT have not done so and do 
standard block closing. */ 

bit 

TDL GENNED^ /♦ Indicates whether the looping code has been generated 
yet. V 

PIN LABEL BEQD /♦ Indicates whether a "$ npp PIK» label is 

reguixed. (It is used at the end of the ATEND or ONZXIT code.) •/ 

ch ar 

“^IKPO /• Holds a copy of INFOBMATION (CUBBENT_»EST^LEVBL) - */ 


27012, 

27013. 

27014. 

27015, 

27016, 

27017. 

27018. 

27019. 

27020. 

27021, 

27022- 

27023, 

27024. 

27025. 

27026. 

27027- 

27028. 

27029. 

27030- 

27031. 

27032. 

27033. 

27034. 

27035. 

27036, 

27037. 

27038. 

27039. 

27040- 

27041. 

27042- 

J7043- 

27044- 

27045- 

27046. 

27047. 

27048. 

27049. 

27050. 

27051- 

27052. 

27053. 


call TBACE^PBINTBR ( ; 'OD*) 

/♦ Prints nacro name "OD'* in nnote if tracing on. */ 
if CURFENT_NEST_LEVEL < N ESIING.LI MIT 

caii VERIPY_END ( J *DO», USEfi^NAMZ) 

/♦ Verifies current block has the naine specified by the USEE^NASE 
operand of the OD aacro (if any) and that it is a DO block. 

Various errors receive messages and either intermediate blocks are 
BLEBDed as a fixup or ERHOR^OCCURBID is set. 

{Lenraa; If CURRENT NEST LEVEL > 0 and 

£USEB_NA«E = **“or =”bLOCK_N AME (CURHENT^KEST^LEVEL) ] and 
8LOCK_TYPE(CURaEKT_HEST_LEVEI) = * DO* , then 

EHHOR^OCCUBRED will te set fal se and CUfiREHT_KEST_LE VEL will 
not be modified.} */ 
if ERROfl_OCCURRED 
the n 
ac xit 
fi ^ 

INFO INFORMATION (CURREHT^KEST.LEVEL) 

TDL_GENNED := IKF0[5, 1] 

FIN LABEL^REQD := IMFCt8,1] 
if TDL.GEHNEO 
thefi 

c all TERMINATE^DO^LOOP ( ; ) 

/* Call separate nacro to generate loop-terninating branches, 

{Leoma: IERMINATE_D0_L00P does not modify C0EHENT_»EST_LEVEL.} ♦/ 

else /* ATEND or ONBXIT occurred; we may need FIN label, */ 

Jf pin_label_recd 
then 

generat e <*l* Ii BLOCK_NOMBEE (CQBBENT_NBST_LEVBL) |1 *FIN DS OH*) 

fi 

fi 

fi 

call POP_OLD_BLOCK ( ; ) 

^ Delete current block from the stack, 

(lemma: POP_OLD_6LOCK decrements caBBENT_HEST_IZVEL by exactly 

one.} ♦/ 

mend 

/♦ (Lemma: If CURBENT_NEST_tE?BL > 0 and 

(USER NAME * ** or - BLOCK^NAME (CUR»ENT_KEST_LEVEL) ] and 
BLOCK“NAMB<CUafiEHI_H£ST_LEVBl) = 'DO* at entry to OD, then 
CURBEHX_NEST_LEVEl^will”be decremeijted by exactly one.) V 


*o«o«o*owowo»o*o*o«owo*o«o*o*o«o«owo*o*o*o*owo«o«>o»owo*owo«o*o»o*o*o*o»o*o»o*o*owo*o«o*owo*o*o»o*o» 
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31001* 

31002- 

31003. 

ilooil. 

31005- 

31006- 

31007- 

3100S. 

31009. 

31010. 

31011. 

31012, 

31013. 

31014. 

51015. 

31016. 

31017- 

31018, 

31019. 

31020. 

31021. 

31022, 

31023. 

31024, 

31025- 

31026- 

31027, 

31026- 

31029. 

31030. 

31031- 

31032. 


51^12 DOCASE (USER_NAHE; INDEX, OPTION, RANGE) 

/♦ The DOCASE macro is used to select one of its inmediate subblocJcs 
defined by CASE macros for execution. The operands are scanned to 
determine the type of case specif icaticn provided. Depending on the 
format indicated, some instructions may be generated at this tine and 
various data are stored in the stack to direct code generation at 
the CASE and ESACCD macros* */ 

bit 

BR ASCH_TO_CASE1 , /* Initially false : to be set true at any 

time a branch is generated uhich would require the first CASE to 
be labeled (as opposed to falling through to the first CASE) . */ 

INDEX_RANGE_ASSUEED /* Set to tru e if ’•ONLY’’ option is specified 

to indicate index will take on only values represented by the 
following CASE blocks. ♦/ 

char 

INDEX_REG, /♦ Name of register containing DOCASE index, if 
in a register- */ 

INDEX^LENGTH, /♦ Length (or symbol indicating length) of index for 
CHARC.OhP operand- */ 

INDEX^TYPE, /* Type of DOCASE index: "R” register, word (or no 

index^CONDTSST type DOCASE), halfword, or "B'» byte (or 

character string-^CHARCOHP type EOCASE) - */ 

CA SE^FORHAT, /* Format of CASE macros to fellow: "GENERAL" (branch 

vector and/or symbolic compares with index), "SPARSE" (symbolic 
compares only) , "CHARCOHP" (character string compares) , "SIMPLE" 
(short sequence of integers in order 1, 2, 3, •••) , or 
"COKDTEST" (no index on DOCASE, conditional test on each CASE 
macro) . V 

LABEL, /♦ Any outstanding label, to be generated on next executable 
instruction- */ 

IMDEX_ADDR /* Symbolic address of byte^type or CHABCOHP index, if 
any; else null, */ 


31034. 

31035- 

31036- 

31037. 

31036- 


/* Ground rules: LABEL is to be generated on the first of any 

executable instruction sequence and then cleared to null; any label 
which needs to be so generated may replace a null LABEL- BBANCH_TO_ 
CASE1 must he set by any branch directly or indirectly to the first” 
CASE (i.e., by all but falling through to the first CASE). ♦/ 
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31040. 

31041. 

31042. 
31043. 
31044. 
31045. 
31046, 
31047. 
3104fi. 
31049. 
31050. 
31051. 
31052. 
31053. 
31054. 
31055. 
31056. 
31057. 
31058. 
3105S. 
31060. 
31061. 
31062. 
31063. 
■1064. 
31065, 
31066. 
31067. 
31068. 
31069. 
31070. 
31071. 
31072, 
31073. 
31074. 
31075. 
31076. 
3 1077. 
31078. 
31079. 
31060. 


call TBACE PRI8TER ( ; *DOCASE*) 

/• Print macro name "DOCASB” in Boote if tracing on. ♦/ 
sail P0SH_NEH,BLOCK (USEfi_l{AHE; 

aLOCK_TypB_VALOE= •DOCASE! , 

EMD_LABEL_VALUE-tra€} • 

/* Define new block; add to stack. Initialize block specifications. 

Note that block will need an BHD label. Set up unique 
BLQCK_LABEI.^PREPIX for generating unique labels. */ 
if EFBOH^OCCURRED 
tl^ en 
me li t 
fi 

LABEL USER NAME 

/* Generate macro's label at first opportunity. */ 
call D0CASE_EX1RACT_0PBEANDS 

/• validate operands and issue any error-messages; set IBDEX^REG, 

INDEX_TYPE, IMDEX_fiANGB_ASSURED, INDEX^LENGTH and CASE_FORMAT. ♦/ 
if CASE^PORHAT # 'CONDIEST' 
then 

^"call DOCASE^INDEX^lO^BEGt . ^ 

/• If case format is GENERAL, SPARSE, or CBABCOMP and the index is a 
byte, save symbolic address of the index in INDEX^ADDR, otherwise 
set INDEX^ADDR to null and generate code to put index into GPR1. V 
if CASE^FORMAT * '^'sinFLE* 

^efl 

call DOCASE^GENERAL^SETUP 

Generate branch to general handler for GENERAL format. In any 
case (GENERAL, SPARSE, or CKAECOflP), advance GCASE^NEST_LEVEL for the 
GCAS2 stack and initialize the GCASE globals. ♦/ 
fi 
fi 

call DOCASE,DEBUG_STUFF ^ ^ 

/♦ Generates last-case variable and block-name constant if required. */ 
call DOCASE_INFO_SAVE , ^ 

/* Store in stack all data needed by CASE and ESACOD to complete 
case processing. ♦/ 
if LABEL It *» 
then 

gen erate (LABEL J | * DS OH*) 

li 

p end 


•o*o«o*o*o*o*o*o^o*o*o-o»o«o*o«o«o*o«o^o«o«o»o*o*o»o*o*o*o*o»o*o«o*o*o*o 


•©♦o*o*o*o*o»o«o«o*o*o*o*o* 


C-35 



"DOCASE« Hacro 


26 JuQ€ 1973 


31082. DOGAS E_EITK1CT_0PEBAHDS 

i1083. /* Validate operands and issue any error neseages; set INDEI BEG, 

51084. IMDEX^TYPE, IKDfiX_B ANGE^ASSOBED, IHDEI_LEBGTH, and CASE_FOEHAT. ♦/ 


31086. 

31087. 

31088. 

31089. 

31090. 

31091. 

31092. 

31093, 

3109U. 

31095. 

31096. 

31097, 

31098. 

31099. 

31100. 

31101. 

31102. 

31103, 

3110(1. 

31105. 

31106, 

31107. 

31108. 

31109, 

31110. 

31111. 

31112. 

31113. 

31114. 

31115. 

31116. 

31117. 

31118. 

31119. 

31120. 

31121, 

31122. 

31123. 

31124. 

31125. 

31126. 

31127. 

31128. 

31129. 

31130. 

31131. 

31132. 

51133. 

31134. 

31135.. 

31136. 

31137. 

31138. 

31139. 

31140. 

31141. 

31142, 

31143. 

31144. 

31145, 

31146. 

31147, 


if OPTION = 'SIMPLE* or = *SFAESE* 

CASE_FOHHAT OPTION 
else 

if OPTION = 'ONLI* 

/* Allow range specification as seccnd operand of aacro, also. •/ 
INDBX^BAKGE^ASSOHED tru e 

els e ” 

if OPTION ^ •• afld ^ *IPANY* 
then 

mnote (8, *STBC3102 » |1 OPTION || 

' INVALID SECOND OPEBAND IGNOBEDM 

fi 

n 

if ISDBX = • * 
theji 

CASE^FOBMAT 'CCBDTBST* 

CASE_POR«AT I- *GENEBAL' 
if INDEX (1) = •IPANY' or = 
then 

^ote (4, »STHC3101 HABNIMG «* J| INDEX(I) || 

* *' ASSUMED AS INDEX; CSE «D0CASB ,* || INDEX (1) 1} 

* " FOB BAN6B SPEC*) 

n 

ii 

if RANGE = 'ONLY* 
then 

INDEX^RANGE_ASSUBBD ;= t ote 

if RANGE It ** and 4 'IPANY* 
the n ^ 

nnot e (8, *STHC3103 *»* || BARGE || 

*♦' INVALID TBIBD OPERAND — IGNORED*) 
fi 

%k 

INDEX_LENGTH *0* /• Assume not CHARCOHP. ♦/ 
if N'INDEX = t afld INDEX[ 1, 1 ] = 

/♦ A one-element sublist was specified; we take it to be a 
register. */ 

INDEI^SEG ;= INDEX (1) 

INDBX_TIPE := *fi* /★ Index is specified as a register. */ 

^se 

INDEI^REG := «• 
ii N'lNDEX > 1 
ihen 

INDEX_TYPE ;= INDEX (2) 

/* Get index type specified; should be (word), »a*> (halfword), 
'*B« (byte), or length of CHAfiCQMP index- ♦/ 
if INDEX_TYPE * • and it *B» t *B* 

then 

IND£X_LENGTH ;= INDEX_TYPB /* Operand two is length specification. ♦/ 
INDEX_TIPE := *B* 

tASE_FOR«AT ;= 'CHABCOMP* /* Change format to CHARCOMP, ♦/ 


else 


fi 


fi 


I«DEX_TYPE := *w* /♦ No type specified; "N« is default. ♦/ 


fi 


corp 


• O*O*O*O*0«O 0«0*0«0a0i 


.0«0.0*0«0«0.0.0«0.0*p.0.0*0*0 *0.0.ti«0«o,0.0«0*0.0«0.0.0«0.0*0.0«0«0.0. 
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31U9. £roc DGCASB^ISDEX_TO_REG1 

31150. /♦ If case format is 6EMEBAL, SPARSE, or CBARCCMP and the index is a 

31151, byte, save symbolic address of the index in IHDEX_ADDR, otherwise 

31152- set INDEX_ADDR to null and generate code to put index into GPR1, 

31153. Given: This proc is not called for CCMDTEST format, ♦/ 


31155. 
31156. 
51157. 
31158. 
31159. 
31160. 
31161. 
31162. 
31 163. 
31164. 
31165. 
31166. 
31167. 
31168, 
31169. 
31170. 
31171, 
31172. 
31 173. 
31174, 
31175, 
41176- 
31177, 
31176. 
31179. 
31100. 
31181, 
31102, 
31183, 
31164. 
31185. 


INDEX ADDR := •* /♦ Assume index will be stored in GPRl. V 

do^se INDBX_TYPE Oflix 

si 

cg§e (*B*J /♦ Register index, ♦/ 
i| IMDEX_REG it * 1 » 
then 

gene rate (LABEL || • LR 1,* J1 IHDEX_REG) 

LABEL := »• 

II 

esac 

case (*W*) /* Word index. */ 

””iiaS£ate (LABEL |j » L 1,’ II INDEX (1>) 

LABEL ;= < • 
esac 

(*H’) /♦ Halfword index. V 
generate (LABEL J| » LH 1,’ N INDEX (1)) 

LABEL := » • 
es ac 

ca^ (*B*) /• Byte index. ♦/ 

CASE_FORKAT = • SIMPLE* 
then ^ 

(LABEL || • SK 1,1 *| 

LABEL := *• 

aSaerate (• IC 1,* N INDEX (1)) 

else 

IMDEX_ADDR INDEX (1) 

/* Postpone loading cf index into register; we may want to do CLI*s.*/ 
f i 

esac 

e gac 

COT£ 


« 0 * 0 * 0 * 0 * 0*0 » 0 * 0 * 0 * 0 * 0 * 0 * 0 * 0 * 0 * 0 * 0 * 0 * 0 * 0 * 0 * 0 *o*o*o*o*o*o*o*o*o*o*o«o*o*o*o*o*o*o*o*o*o*o*o*o*o*o«o* 
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31187. ££25 DOCASE_GENEflAL_SETOP 

31188. /♦ GeDerate branch to beginning of general handler for general format 

31189. DOCASE. In any case, advance GCA$E_NEST__,LEVBL for the GCASE stack 

31190. and initialize the GCASE globals- It is assumed that this proc is 

31191. called only for GENERAL, SPARSE, and CHABCCNP case formats. */ 

31192. int I, J /* Temporaries. */ 


31194, 
31195. 
31196. 
31197. 
31198. 
31199. 
31200. 
31201. 
31202. 
31203. 
31204, 
31205, 
31206. 
31207. 
31208. 
3120 9. 
31210, 
31211. 
31212. 
31213. 
31214. 
31215. 


if CASE_FOfiflAT - »GEMEBAL' 
the n 

aenera^ (LABEL (| » B • || BLOCK_LABBL_PBEFIX J| »BEG») 

/♦ Generate branch to general handler which is defined at ESACOD. */ 
LABEL := • • 

BR ANCB_TO_^CA SE1 ;= Albeit indirectly. ♦/ 

Ji 

GCASE^NEST^LEVEL ;= GCA SE^NEST^LBVEL 4 1 /* Advance GCASE stack. ♦/ 
if GCASE_NEST_LEVEL < GCA SB_ REST_LlHIT 
Ikefl /* Clear GCASE glotals. */ 

MAX_CASE_VA1UE (GCASE_SEST_LEVEL) -1 

ftaximun branch vector value found. ♦/ 

NEXT_COMP_LA BELONG (GCASE_NEST_LEVEL) 1 

/* Case number for next comparison case label to be generated. «/ 

J ;= GCASE_KEST_LEVEL * 256 
I J - 255 

if CASE_FOfi«AT = ‘GENERAL* 

^en 7* Clear CASB^CCCOFS bits. ♦/ 

lEilg I ^ J 
lo 

CASE OCCURS {1) ;= false 
I I 4 1 


31216. 

31217. 

31216 , 

31219. 

31220- 

31221. 

31222. 

31223. 

31224. 


fi 

else /♦ 
mnote 


Ji 

c orp 


od (Termination: I is incremented, J is fixed during loop; I 

must eventually exceed J.} ♦/ 

GCASE stack overflow. V 

(12, *51803104 GENERAL/SPARSE/CHARCOMP DCCASE NESTING LEVEL * || 
GC AS E_NEST„ LEVEL || * EXCEEDS MAXIMUM OF » | | 

GCASeInEStIlIBIT N » — MACROS MUST EE MODIFIED*) 


« 0*0* C 40*040 40* 0*04 0«040«0«0«0«o*040*0 40* 0*0 40* 0*04 0*0 40* 0*0* 04040*0*04 0*040*0*0«0*0*0*0*0*0*0« 0*0* 
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21226. £rag DOCAS E_DEB[JG_STtIFF 

31227. ” /* Generates last-case variable and block-name constant if required. */ 

3122 8. char X /♦ Temporary- ♦/ 


31230- 

31231- 

31232- 

31233. 

3123 ^*. 

31235. 

31236- 

31237. 

31238. 

31239. 

312i*0. 

312^1. 

31242- 

31243. 

31244. 

31245. 

31246. 

31247. 

31246. 

31249- 

31250. 

31251, 

31252. 

31253. 

31254. 

31255. 

31256. 

31257. 

31256. 

31259. 


if DEBOG_BLOCKCOUHTS_RECD DBBUG_BLOCKHAMES_BEQC 
then 

If - ESANCH_T0_CASE1 
then 

/★ Branch must be generated around the last-case variable and/or 
block-name constant- Put target suffix into X. V 
if CASE_FOHKAT » •GEMEHAL* 
then 

/* This case should not occur since DOCASE_GZNERAL_SETUP generates 
the branch for GENERAL cases; we include the code here for 
conpleteness. ♦/ 

X ;= ♦BEG' 
else 

X := *C1' 

li 

gen erate (LABEL | | ' B * I I BLOCK^LAB EL^PREFI X J j X) 

BRAKCH_TO_CASE 1 := t£ae 
LABEL 7^ ' * 

£i 

i£ DEBU6_B10CKNA«BS_aEQD 
then 

"g enera te (» DC C” || BLOCK^NAHE (CORRENT^KEST^LEVEL) U 

ik ^ 

if DEBUG^BLOCKCOUNTS^RECB 
then ” ^ 

generate (BLOCK_LABEL_PREF IX M «LSC DC X*00' LAST CASE NURBEfl") 

ti 

ge neratfe (' DS OH') 

U 

corp 


«0«0«0«0*0*0«0«0*0*0«0*0*0«0«0«0*0« o*o*o-o«o«o«o»o«o*o»o«o*o»o«o*o»o*o*o*o*o*o*o*o«o*o«o*o«o*o*o*o* 
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31261. 

31262. 

31263. 

31264. 


2EOC DCCASB_OFO^SA?E 

/* Store the case counter initial value (0) in OPEBAND1; IKDE1_ADDR 

in OPEBAMD2; CAS£_POBMAT in OPEBAND3; IHDEX LEHGTH in OPEBAND4: and 

various switches in INPOaM ATION. ♦/ 


31266. 

31267. 

31268. 

31269. 

31270. 

31271. 

31272. 

31273. 

31274. 

31275, 

31276. 

31277. 

31278. 

31279. 

31280. 

31281. 

31282- 


OPEEAND1 <CaftR£(JT_HEST_XEVEL) *0' /♦ Case counter. ♦/ 

OPERAND2 (C0aBBMT_NEST_lE7EL) :=^ INDEX ADDR /♦ Byte index address. */ 

0PBHAHD3 (CUfiHENT_NBST_IEyEL) CASE FORMAT 

OPBHAND4 <CUfiaEMT_IiEST lEVBl) INDM LENGTH 

INFORM ATI ON (CaRfiENT_SESl^LE7EL) ;== 

BRANCH^T0_CAS£1 JJ J| tru e || fa lse || INDEX RANGE ASSURED) 

/♦ Id formation: ~ “ “ 

Byte 1: Indicates whether first CASE requires a label. 

Byte 2: Indicates whether a MTSC CASE has been found. 

Byte 3: Indicates whether all self-defined operands are divisible 

by 4- 

Byte 4: Indicates whether any unexpected operands were found 

for general case processing (i*e. , any operands which were not 
equal to their own sequential CASE number) . 

Byte 5; Indicates whether index test for out— of-range value may be 
onitted, */ 


o*ovo*o*o.o-o*o*o*o*o*o*o*o*o*o*o*o.o#o*o*o*o*o*o«o#o*o«o«o*o#o«o»o*o*o*o*o*o#o*o*o.o#o*o*o»o*ovo 
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33001- 

33002- 

33003- 

33004- 

33005- 

33006- 

33007- 

33008, 

33009. 

33010. 

33011- 

33012- 

33013- 

33014. 

33015- 

33016. 

33017. 

33018. 

33019. 

53020. 

33021- 

33022. 

33023. 

53024, 

'33025- 

33026. 

35027. 

33028. 

33029. 

33030. 

33031. 

33032. 

33033. 

33034. 

33035. 

33036. 

33037. 

33038. 

33039. 

33040. 

33041. 

23042. 

33043- 

53044. 

33045. 

33046. 


macro CASE (OSEfl^WABE; BEl*. »ASK^> 

/* The CASE nacro is used to specify a block of code which is one 

of tne alternatives for the in mediately suitounding DOCASE macro. If 
CASE macro is not the imnediate daughter of a DOCASE and no fixup is 
possible^ a BLOCK macro is substituted- Otherwise, the information 
stored by the DOCASE is extracted and the operands of the CASE are 
processed to produce the necessary code for the selecting of this 
block in the indicated case. Finally, any debugging code required 
is generated, ♦/ 

int . 

CA SE_COUl!«TES, /* Case number for ^this CASE maintained in 
mother info- ♦/ 

COHP_LABEL BO, /♦ Sumter to be used in next compare label to be 
defined. V 

I - /♦ SYSLIST index. ♦/ 

bit 

CASE LABEL BBQD, /* t^e unless DOCASE is falling through into 
first CASE, */ ^ 

INDEX_RANGE_ASStIBED, /♦ if we have been assured (by 

"DOCASE that no values other than those specified 

by CASE operands will occur. ♦/ 

EQOAL TEST_ODTSTA»DING, 

/♦ Indicates that a compare for the current operand has been generated 
but the "BE” to the beginning of the block (or “BilE*' around the 
block) has not been generated yet. ♦/ 
hange^test^outstaedihg, 

/* Indicates that a compare for the current range operand has been 
generated as well as the branch if below the range; the branch 
if within the range to the beginning of the block (or "BH" around 
the block) has not been generated yet. ♦/ 

HISC^FOOND, /* Indicates whether NISC has been found yet. V 
HDLTI PLESOF4 , /* Indicates whether all the self-defining operands 
of the CASE macros processed so fat are multiples of 4. */ 

UNEXPECTED OPERANDS FCDND /♦ Indicates wbteher any operands have 

been found so far in the CASE macros* operands which either were 
symbolic or were self-def incrs not equal to their own case number. ♦/ 

char 

CASE FOBBAT, /* Type of CASE operands expected: GENERAL, 

SPARSE, SIBPLE, CHABCOMP, OE CONOIESI. */ 

«A«A_BLOCK_PREFIX, /♦ BLOCK^LA EEL^PBEFIX from mother DOCASE block. ♦/ 
INDEI_ADDr7 /* Symbolic address of byte or CHARCOBP operand, ♦/ 

LABElT /* Outstanding label waiting to be generated- V 
COflP^IABEL, /♦ The next label for a compare test, ♦/ 

NEXt"caSE, /♦ Label to be generated on next SIMPLE or CONDTEST 
^ CASE macro. ♦/ 

INOEX^LENGTH /♦ Length of CHARCOBP index- */ 
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33046 . 

33049. 

53050. 

33051. 

33052. 

33053. 

33054. 

33055. 

33056. 

33057- 

33056. 

33059, 

33060. 

33061. 

33062. 

33063. 

33064- 

33065. 

33066- 

33067. 

33066. 

3306S. 

33070. 

33071. 

33072. 

33073. 

33074. 

33075. 

33076. 

33077. 

33078. 

33079. 

33080, 

33081. 

33082. 

33083. 

33084- 

53085.' 

33086. 

33087. 

33066. 

33089. 

33090. 

33091. 

33092. 

33093. 

33094, 

33095. 

33096. 

33097, 

33098. 

33099. 

33100, 

33101, 

33102. 

33103- 

33104. 

33105. 

33106. 

33107. 

3310 6, 

33109. 

33110, 

33111. 

33112. 

33113. 

33114. 

33115. 

33116. 

33117. 

33116. 

33119, 

33120. 

33121. 

33122. 

33123. 

33124- 

33125. 

33126. 

33127. 


call TBACE^^PRINTER ( ; ‘CASE* J 

/* Print macro name "CASE” ia mnote if tracing on. ♦/ 
call CASE_P0SITI0N_CHECK 

/♦ Verifies mother block is a DOCASE or attempts fixup with up to 2 
BLENDS. Indicates whether un-fixup-able EBRoa OCCURRED. ♦/ 
if ERRCR_OCCURRED • 
then 

fiaatS »STRC3304 "CASE” TREATED AS "BLCCK” MACRO*) 

caXX BLOCK (DSER_NAME; ) 

JSlit 

fi 

call PUSH_KE»_BLOCK (USER_HAME; BLOCK_T?PE_ V AIUE= 'CASE* ) 

^/* Define'new block; add to stack? Initialize block specifications. 

Note block type. Set up unigue BtOCK_lABEL_PREFIX for use in 
generating unique labels. */ 

if EHROfi.OCCURRED /* during PUSH_N BM^BLOCK (viz., stack overflow) ♦/ 
then ^ 

me xi t 
fi 

if REL ^ or- MASK # » * 
then 

’STRC3310 REL= OR HASK= NOT IN PARENTHESES — IGNORED*) 

fi 

call CASB^GET^DOCASE^INPO 

Extract CASE_FOBMAT, CAS E_L ABEL^R EgD, C ASE_COUNTER, MISC_FOUND, 
«AMA_BLOCK_PfcEFIX, INDEX_B ANGE^ASSUFEC , INDEX ADDS, and INDEX_LENGTH 
from mother DOCASE block. ♦/ ^ 

if USER_NAWE # '* 
the n 

generate (USER^NARE |J » DS OH*) 

/* Any USBR^NARB OD a CASE macro is just a coument since a branch to 

it will produce unpredictable results. If one was specified, get it 
out of the way now. */ 
fi 

if'SYSLIST(l) = *MISC* 
then 

call CASB_BISC_PROCESS 

/* Completely process miscellaneous CASE block. V 

else 

if CASE_FOBMAT = ‘GENERAL* or “ 'SPARSE* or = 'CHARCOSP* 

iiisn 

if GCASE_NEST_LEVEL < GCAS E_NEST_LIHIT 

^11 CASE_PROCESS_CCMPARE_OPERANDS 

/* Generate code to handle all ‘'symbolic" operands 

(i.e. , all those which cannot be handled with the branch vector) , 
or for all operands in the SPARSE or CHARCOMP format. These are 
all handled by generating compare-and- branch seuuences, */ 
if CASB^FOBMAT = 'GENERAL' 

call CASE_PBQCESS_VECTOR_OPERACiDS 

/♦ Generate labels and save information about any operands which 
are to be bandied via branch vector. */ 

fi 

fi 

else /♦ Must be SIMPLE or CONDTEST type. ♦/ 
call CAS E_SET^ NAMES 

/♦ Set LABEL if label reguired on first of code (usually is; only 

exception is when DOCASE is falling through to first CASE macro) . 

Set NBXT^CASE with label to be used on next case. */ 
if CASE_rORMAT = 'SIMPLE* 

call CASE___BCT_GEH 

/♦ Generate BCT instruction for this case. */ 
call CASE_CONDTEST^GEN 

/* Generate conditional test specified on CASE macro. */ 
fi 
fi 
f i 

call CASE_TRACE_COUNTER 

/* Generate code to count this block, note last case number, and/or 
display block name if appropriate debugging requested. ♦/ 
call C ASE_UPDATE_INFO 

/* Update the information stored in mother DOCASE block. ♦/ 
if LABEL # • ■ ' 

then 

^e^er^te (LABEL |( * DS OH*) 
f i 

m end 


*o*o«o«o«o*o •o»o*o» o*o«o*o*o«o«o»o*o*o*o»o«o 


•0»0*0*0*0«0* 0«O*O« 0*0 *0 •0*0 «0 •0*0* 0*0*0 *o»o«o*o«o*o*o« 
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3312 9, ej^C CASE_POSITIOH_CHECK 

33130. ' /* Varifies mother is DOCASfi macro or attempts fiitup by Insertiog up 

33131. to two BLENDS (if that will get us to a DOCASE mother). Indicates if 

33132. no fixup possible in EHROfi^OCCUBflED. */ 


3313a. 

33135, 

33136, 

33137. 

33138. 

33139. 

33140. 

33141. 

33142. 

33143, 

33144. 

33145, 

33146, 

33147. 

33148. 

33149. 

33150. 

33151. 

33152. 

33153. 

33154, 

33155. 

33156, 


ERROR occ ORBED := false /♦ Assumed, */ 
if BLOCK_TyPE(CURfiEBT3EST_LEVEL) * *DOCASE* 
then 

mnote (B, 'STHC3301 ••CASE" NOT IMMEDIATE EAUGHTEE OP ••DOCASE"*) 
EREOR_OCCOfiRED := t^ug /* Assume no fixup possible. ♦/ 
if CORRENT_NEST_LEVEL > 1 and 

BLOCK^TYPE (CUBBENT_NEST_LB7EL'1) = 'DOCASE* 

^en 

mnote (8, •STRC3302 ASSUMING ••BLBNC" OMITTED — INSERTED*) 
call BLEND ( ; ) 

EafiOH_OCCURRED fa^se /* Note patch up- ♦/ 
els e 

if CORRENT_NEST_LEVBL > 2 and 

BLOCK_TYPE(CUBflENT_NEST_LEVEL-2) = * DOCASE* 

thgg 

mnote (8, *STRC3303 ASSUMING TWO "BLENDS" OMITTED — INSERTED*) 

call ^BLEND ( ; ) 

call BLEND ( ; ) 

EBBOR_OCCURHED := fa^se 

li 

tk 

tk 


«o«o*o*o*o*o *o«o«o« o*o*o*o*o*o*o*o*o«o«o«o«o*o*o*o»o*o*o«o*o*o*o*o*o*o«o*o*o»o»o«o*o*o«o*o»o*o*o*o* 
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f 

3315fi. 

33159* 

33160* 

33161, 

33162, 


CASE_GET_DOCASB_ISfO 

/* Extract DOCASE inf cruation being maintained in Bother's stack 
position, V 

int ROW /♦ Temporaries. ♦/ 


33164, 

33165. 

33166. 

33167. 

33168, 

33169, 

33170, 

33171. 

33172. 

33173, 

33174. 

33175. 

53176, 

33177. 

33176. 

33179- 

33180- 


ROM := COflEE»T_NBST_LEVEL - 1 
CASE_COUMTEfi := OPEfiAMDI (HOM) 
if SYSLISTO) * ’RISC' 
then 

CASE_COORTBR ;= CASE_COllMTEfi ♦ 1 
f i ^ 

INDEX_ADDB := 0PERAN02 (RON) 

CASE_PORnAT OPEBAKD3 (MQMJ 
INDEX^LENGTH OPEfiANM (HOR) 

1 :* iNPORflATICM ^HOR) 

CASE_LABBL_EEQD ;= X[ 1 , 1 ] 

RISC^POOHD :== Xt2,1] 

HaLTIPLESOF4 X[3,1] 

tJKEXPECTED_OPE BANDS POUND := X£4r11 
INDEX_BANGB_ASSUHED^;= X£ 5, 1 J 
HAHA_BLOCK^PREFIX '$« |j BLOCK_HOMBEB (RCH) 


•o«o*o*o«o*o«o*o*o« o*o*o*o*o*o«o*o«o 


•o*o«o«o*o*owo*o*o«o«o*o«o*o*o*o*o«o-o*o*o«o.o*o»o#o»o 


>o*o*o* 
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33182, £roc C ASE_pa0CESS_C0flPA8E_0PfifiANDS 

33183. /* Generate con pa r^-and-- branch sequences for all "symbolic” operands 

53ieii. those which cannot fce handled ty the branch vector; all non- 

33165. self-defining- ter as, ail self-defining operands which are not in 

33186, the range 0-255 inclusive, and all "range” operands (ni,a) 

33167. where either m or n is either non-self-def ining or outside the 

33188, range 0-255) or for all operands if tOCASE was flagged as SPARSE or 

33189. CHARCOrtP, */ 


33191. 
33192. 
33193. 
53194. 
33195. 
33196. 
33197. 
33198. 
33199. 
33200. 
33201. 
33202. 
53203. 
33204. 
53205. 
53206. 
33207. 
3320£. 
3320 9. 
33210. 
33211, 
33212, 
33213. 
33214. 
33215. 
33216, 
33217. 
33218. 
3321S. 
33220. 
33221. 
33222. 
33223- 
33224. 
33225. 
53226. 
33227. 
53228. 
33229. 
33230. 
33231. 
33232. 
53233, 
33234. 
33235, 
33236, 
33237. 
33238. 
33239. 
33240. 
33241. 
33242. 
33243. 
53244. 
33245- 
33246. 
33247. 
33248. 
33249. 
33250. 
33251, 
33252- 
33253. 
33254. 
33255. 
33256. 
33257. 
33258- 
33259. 
33260. 


I ;= 1 /* Start search with first operand. */ 

CDBP_LABEL_NO NEXT^COB E^lAaEL^HO (GC ASE^MESI_LEVEL) 

/* Note the next compare label number. */ 

EQOAL_TEST_OUTSTAND1NG, R A»GE_TEST_OUTSTAMDING ;= false 
while I < N*SISLIST 
do 

if (CASE FORMAT - 'SPARSE* or - 'CHARCOBP* or 

In 'SYSLIST (I) < 1 and (T’SISLIST (I) * *N» 
or SYSHST(I) < 0 or > 255)) 
or (N'SYSLIST (I) > 1 and (T* SYSLIST (I, 1) * *N* or 
SZSLIST(I,lf < 0 or > 255 or 
T»SYSLIST{I,2) * 'N* or 
SYSLIST(I,2) < 0 or > 255))) 

then 

If EgUAL_TEST_OUT STANDING 
then 

LABEL B LOG K_LABEL_P REFIX Jj 'BEG* 

generat e (' BE * II I ABEL) 

/* After leaving this proc, someone will generate the BEG label 
at the beginning of the block. */ 

EQaAL^TEST^OUlSTANDING := fals e 
else 

if RAHGE_TEST_OUTSTANDING 
then 

LABEL ;= ELOCK_LABEL_PEEFIX Ji *BBG* 
generate (' BNH • M LABEL) 

/♦^Again, by leaving BEG label in LABEL, it will be generated 
after leaving this proc. */ 

HAHGE^TEsa^OUTSTANDING false 
el se /♦’’Bust be first time through. */ 

^ CASE,LABEL_BEQD 
t hen 

COBP^LABEL := B ABA_BLQCK_PREFIX j| *C j| COBP_LABEL_NO 

/♦ Generate label name to be attached to first instruction. */ 
f i 

UKBXPECXED_OPEBANDS_FOOND := t rue 
fi 

call CASE_GEK_CCBPABE 

/♦ Generate compare for the single compare operand at SYSLIST(I)^ 
either general case non-self-def iner or any SPARSE or CHAHCOBP 
operand- DOCASE index is at INDBX^ADDB unless that's null, then in 
GPfil. Length is in INDEX^LENGTH for CHABCOfiP type. Any label to be 
generated is in COHP^LABEI: once defined, COB P_^LABBL_N0 must be 

increased. Any branch target outstanding at exit is to be 
put into COMP^LABEL. Also on exit, EQOAL_TfiST_ODTSTANDIKG or 
RANGE_TESI_CUTSTA»DING should be set to indicate which type of 
operand was processed. ♦/ 
fi 

I I ♦ 1 /* Advance to next operand of CASE- ♦/ 
od /♦ {Termination: 1 is incremented above and not modified by 

called procs; N'SY.SLIST is fixed; I must eventually exceed 
N'SYSLIST.} ♦/ 

/♦ All compare operands have now been processed. ♦/ 
if EQOAL_TEST_OUTSTANDING 
then 

/♦ Generate branch to next symbolic case. V 
geaetste (* BNE * I1 B A BA_BLOCX_ PREFIX U *C' || 

COHP_LABEL_NO) 

else 

if RANGE_TEST_OUTSTAHDING 
the n 

g enerate (• BH 'll cobp_laB8L) 

/♦ Generate branch to next compare case. Label was left in COBP_LABEL 
when we branched on lover end of range. ♦/ 

fi 

fi 

NEXT _COBP_LABEL_HO (GCA SB_NEST_LEVEL) ;= C0MP_1ABEL_N0 

/♦ Store case number of next symbolic case to be defined. ♦/ 

sgrp 


•©•O^O^O^O^O^O^O^O^O^O^O-O^O^Q^O^O^OWO^O^OWO^O^O^O^O^O^O^O^O^O^O^O^O^OWO^O^O^O^O^O^O^O^O^O^O^OWOWO* 
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33262. 

33263- 

33264- 

53265- 

33266- 

33267, 

33268, 

33269, 

33270. 

33271. 

33272- 

33273- 

33274- 

33275. 

33276- 


ijroc CASE_GEN_CO«PAfiE ♦ 

/* Generate coapare for the single compare operand at SYSLIST(I) — 
either general case noi\-self-def iner or any SPABSE or CHARCOHP 
operand. DOCASE index is at IHDEX_ADDfi unless that's null, then in 
GPB1. Length is in IMOEX^LENGTH for CHABCCHP type. Any label to be 
generated is in CO(lP_LAbEl; any branch target at exit is to be 
put into COMP_LABEL, Also on exit^ 1 QO AL_1EST_0UTSTANDING or 
R A NGE_TEST_^OtlT STANDING should be £et tc indicate which type of 
operand was processed. Operands aay be of the fora m or n> , 

the latter implying the range £roa m to n. a and n may be 
self-defining terns or synbols EQUated to absolute expressions for 
GENERAL or SPARSE format; for CEABCCMP, they may be absolute or 
symbolic addresses of character strings or may be literals {with the 
leading and, for character literals, "C’' possibly omitted). */ 
ch^ INSERT /» Temporary , V 
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33276 . 

33279. 

33280. 

33281. 

33282, 

33283, 

33284. 

33285. 

53286. 

33287- 

33286. 

33289. 

33290. 

33291. 

33292. 

33293. 

■3294. 

53295- 

33296. 

33297. 

5329 6. 

33299. 

33300. 

33301. 

33302. 

33303. 

33304. 

33305. 

33306. 

33307. 

3330B. 

33309. 

33310. 

33311. 

33312. 

33313. 

33314. 

33315. 

33316. 

33317- 

33318, 

33319. 

33320. 

33321. 

33322. 

33323. 

33324. 

33325. 

33326. 

33327. 

3 332 8. 

33329. 

33330. 

33331. 

33332. 

33333. 

33334. 

33335. 

33336. 

33337. 

33338. 

33339. 

33340. 

33341. 

53342. 

53343. 

33344. 

33345. 

33346. 

33347. 

33346. 

33349. 

33350. 

33361. 

33352, 

33353. 

33354. 


if INDEX^ADDR = »» 

then /♦ Indei is in GPB1. V 

gener ate (COaP_LABEL ’ LA 0,* |I SYSLISI (1 , 1) ) 
gener ate ( * C B 1 # 0 * ) 

else /♦ Index is at INDEX^ADDR. V 
if CASE^PORHAT ^ *CHABCCHP* 

INSERT :- * * 

if SYSLIST (1,1) [ 1 ] * *=* 
then 

if SYSLIST (I, 1) £1,1 ] 

llisa /* character string. ♦/ 

INSERT := »-C* 

^If SYSLIST(I, 1) [K« SYSLIST (1,1) ,1 ] = 

t hen /♦ Literal without the "=" (operand ends with •»»"). */ 
INSERT ;= •=*» 

li 

fi 

ge nera te (COHP^LABBL J| ' CLC < |J INDEX^ADDR || M* J I 
IND£X_IeKGTH 11 ')f* II IMSEBI 1| SYSLIST (I, 1) ) 

els e 

g enera te (COMP.LABEL || • CLI » || IHDEX.ADDR IJ II 

SYSLIST (1,1) > 

fi 

fi 

if COHP_LABEL * 
tk§n ” 

COMP_LABEL := ** 

CQBP_LABEL_BO := COflP_LABEL_NO + 1 

f i 

if^N'SYSLISra) < 1 

then /♦ Operand is not a range. ♦/ 

EQUAL_TEST_OUTSTANDING := t rue 
else /*”a range has been specified: (B,n) ♦/ 

if B* SYSLIST (I) > 2 
Uien 

mnote (6, •STRC3312 < J| SYSLIST (IJ 11 

t invalid— ONLY FIRST TWO SDBOPEPANDS PROCESSED’) 
fi 

HANGE_TEST_OUTSTANDING := true 

/♦ Generate another label, ♦/ 

COUP LABEL := ilAnA_BLCCK_PHEPIX )| *C* M CCMP_LABEL_NO 

ge nerate {• 0L ’ || CORP^LABEL) 

/♦ Generate branch on out of range to next conpare test label (in 
either this CASE macro or some other CASE in this DOCASE). ♦/ 
if INDZX^ADDR = »’ 
then 

““ii^ESte (* LA 0,' n SYSLIST (1,2)) 

g enera te (• CB 1#0*) 

elsg 

if CASE_POB»AT = ’CHABCOnP* 

"^ then 

INSERT i = * * 

/♦ Go through the same business figuring out the insert for n as 
we did for a- */ 
if SYSLIST (I, 2)£ 1,1 ] t * =* 
then 

if SY5LIST(I,2) [ 1, 1 ] ^ 
then 

INSERT i= ■=C* 
else 

if SYSLIST(I,2)[K*SySlIST(I,2) ,1 ) = 
the n 

IKSEHT 1= •=* 
f i 

fi 

f i 

generate (* CLC • || IHDEX^ADDB |J • (• |j INDEX^LENGTH H 

'),' 11 INSERT I) SYSLIST (1,2) ) 

else 

gen erat e (• CLI ' || INDEX^ADDR 1l || SYSLIST (1, 2) ) 

fi ' 

U 

fi 

£2£B 


0»0«0*0*0*0*0*0«0» 0*0«0*0»0«0»0«0*0*0«0*0*0*0*0*0*0»0*0^0«0*0*d»0*0»0*0»0«0«0*0*0»0*0»0«0»0«0*0*0* 
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33356, 

33357. 

33356. 

33359. 

33360. 

33361, 

33362. 

33363- 

33364, 

33365. 


£roc CASE_P80CBSS_VECT0K^0PEBAMDS 

/• Generate labels and note that CASE^OCCOBBS for any operands which 
can be handled via kranch vector ;"’viz, , any of the form m or 
where a and n are self-defining terns in the range” 

0-255 inclusive. This procedure assusies the CASE FORMAT is general 
(not sparse) . ♦/ ” 

Int 

BASE, /* Array position in CASE^OCCUHS of the case for zero, ♦/ 

OP, /* Case value currently being considered. */ 

LIMIT /* High liait in range operands, ♦/ 


33367. 

3336B. 

33369. 

33370, 

33371, 

33372, 

33373, 

33374. 

33375. 

33376. 

33377. 

33378. 

33379, 

33380, 

33381. 

33382. 

33383. 

33384. 

33385. 

33386. 

33387. 

3338 8. 
33389. 
33390. 
33391, 
33392. 
33393. 
33394. 
33395. 
33396. 
33397. 

3339 8- 
33399. 
33400. 
33401, 
33402. 
33403. 
33404. 
33405. 
33406. 
33407. 
33406. 
33405. 
33410. 
33411. 
33412, 
33413. 
33414. 
33415, 
33416. 
33417. 
3341 8. 
33419. 
33420. 
33421. 
33422. 
33423. 
33424. 
33425. 
33426. 
33427. 
33428- 
33429- 
33430. 
33431. 
33432. 


BASE := ( (GCASE_NSST_LEVEL - 1) * 256) ♦ 1 

/* Calculate offset in CASE OCCOBSS array for this DOCASE. */ 
if N«SYSLIST >0 

then /♦ One or aore operands were specified. ♦/ 

I := 1 /♦ Start with first operand. ♦/ 
while I < N'SYSLISI 
do 

if T*SYS1IST(1, 1) «N* 

/♦ £ is a self -defi ning term. ♦/ 

OP ;= SYSHSKI,!) 
if OP < 255 and OP i 0 

then /♦ It*s in the range. */ 

if T»STSLIST(I,2) = »0* or = *N' 

t^n /* n is self-defining or not present. V 
if N»SYSLIST(I) > 2 
the n 

angte (8, *STRC3312 * || SYSLIST(I) || 

* INVALID — ONLY FIRST TBO SUBOPEBANDS PROCESSED*) 
fi 

if^T* SYSLIST (1,2) = *N* 
then 

'limit ;= $YSLIST(I,2) 
if LIMIT < 255 a^d > 0 

/* h is in the right range also. ♦/ 
if LIMIT < OP 
then 

maoj^ (8, *STBC3305 ' i| SYSLIST (I) |j » INVALID—* || 
OP I I * ASSaaED* 

LIMIT := CP 
fi 

LIMIT OP 


fi 

if LIMIT > MAX_CASB_VAIDE (GCASE_NBST_LEVEL) 

ffSH /* have found a new naxiiHuin case number. */ 
flAX_CASE_VALD6 (GCASE NEST LEVEL) ;= LIMIT 

w hile OP < LIMIT 
do 


CASE^OCCOES (BASE+OP) ; g tru e 

asaeisfe (MAMA^BLCCK PREFlx”|j *G* | j OP * OS OH*) 
if OP case^coubteb” 

U»EXPECTEC_OPEBANDS FOUND := true 

fi 

if OP/4 *4 4 OP 
then 

MULTIPLES0F4 := ^aise 
f i 

OP := OP + 1 

od /♦ (Termination: op is incremented, LIMIT is fixed 

during loop; CP must eventually exceed LIMIT.) */ 

Li 

fi 

fi 

I := I *■ 1 /♦ Go do next operand. ♦/ 
gd /* [Termination: I is incremented, H* SYSLIST is fixed during 

loop; I must eventually exceed N* SYSLIST-} ♦/ 
gisQ /♦ Ho operands present. */ 
call CASE^ASSUMBD_VECT0H_CASE 

/* If ail the CASE macros so far have had no operands or only 

''expected” ones (integers which match the case counter), assume 
this one matches too and generate the single operand. ♦/ 


c or p 


• 0*0*c» 0 * 0 » 0 •O* 0 * 0 * 0 * 0 • 0 * 0 « 0 « 0 * 0 * 0 *a aovo^ovo^o* o*o*o»o 


• 0 * 0 « 0 * 0 » 0 * 0 * 0 « 0 « 0 « 0 » 0 * 0 * 0 * 0 * 0 « 0 " 0 « 0 * 0 * 0 * 0 » 0 « 
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33434. 

33435. 

33436. 

33437. 

33438. 

3343S. 

33440. 

53442, 
53443, 
53444. 
33445. 
33446. 
33447, 
3344 8. 
33449. 
33450. 
53451. 
33452. 
53453. 
33454. 
33455. 
33456. 
33457. 


proc CASE ASSUMED VECTOR_CASE . 

/S Generate label foe branch acetor cases aith no operands. 

is the next higher value than the naximum used so far. C»SE_0CC«BRS 
is noted, and the SELFDEF_COUNT and BIX_CiSE_T»lUE are updated. If 
any previous operands have occured which wero not eipected^ a 
message is printed. */ 
int GUESS /♦ Assumed operand. V 


GUESS MaX_CASE_VALUE(GCASE_NEST^LEVEL) ♦ 1 

/* Guess at uhat onitted operand was intended, 
if GUESS < 0 

then /♦ First guess. V 
GUESS ;= 1 

MAX^CASE_VALUE (GCASE^NEST^LEVEt) 2= GUESS 

CASE OCCUBS{BASE+GUESS) := true 

assaiate (BA«A_BL0CK_PBEFIX n 'G' m guess ii 

if U8EXPECTEO_OPERANDS_PQUSD 

then 


*/ 


cs 


OH’) 


f i 


^^^STRC3306 EARLIER OUEXPECTED OPERA8D IMPLIES THIS TO BE CASE • || 

GUESS) 


corp 


.o»o.o.o.o.o.o.o.o.o.o.o.o.o.o.o.o.o.o.o*o.o»o»o»o.o.o»o«o»o.o*o.o.o*o»o*o,o«o«o.o.o.o.o.o»o«o*o.o. 
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33iJ59. groc CASE_SET^NAMES 

33^460- ^ /♦ Set iABEL if one will te required on this SIMPLE or COKDTEST case 

33461. code (usually is; only exception involves when DOCASE falls through 

33462. to first case). Also set HEXT_CASE with label of next case to be 

33463. generated. LABEL is always null at entry* */ 

33465. if CASE_LABEL_BEQD 

33466, then 

33467. LABEL := MAHA_BLOCK PBEFIX j| (| CASE_COaNlBR 

33466. fi 

33469* I := CASE^COUSTEfl + 1 

33470. HEXT_CASE^:= « AM A_BtOCK_PBEFIX JJ *C» || I 

33471* coT£ ^ 


40*0*0*0«0«0 «0«O*O*O*O •0*0v0*040«0*0«0 *0*0 •0«0«0«0*0*0*0*04D«04 0«0«0«0*0«0«0»0*0*0«0*0*0*0*0*0*0*0« 


t) 
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33473. 

33474. 


proc CASE_BCT GBH 

/♦ Generate BCT for this sxmple case- 


Verify operand, if any- ♦/ 


33476- 

33477. 

53478. 

33479- 

33460- 

33481. 

33482. 

33463- 

33464. 

33485, 

33486. 

33487. 

33488. 

33489. 

53490. 

33491. 

53492. 


generate (LABEL H • SCT 1," il MEXT_CASE) 

LABEL '* 
if T*SISLIST(1) * *0* 

then /♦ An operand was specified- */ 

If T*SYSLIST(1> = 

then /♦ Operand is a self -defining term. V 
if SYSLIST(I) # CASE.COUNTEB 

mnote (8, »STBC3307 OPERAND INVALID VALUE ON SINPLE CASE ' || 

CASE_COONTBB) 


£4 . . ^ 

pise /♦ Ooerand is not self defining y ter a. */ 

mnote (8, »STBC3309 OPBRAMD HOST EE SELF-DEFIHING TEBB OR QUITTED 
“ mw SIMPLE CASE ■ I 1 CASE_COUNTEE) 


fi 


fi 


c orp 


II 


.o.o.o.o.o.o.o.o.o.o.o.o.o.o.o.o.o.o.o.o.o.o.o.o.o.o.o«3.o.o.o.o.o.o.o.o.o.o.o.o.o.o.o.o.o.o.o.o.o. 
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3349 / 1 . 

33495. 

33496. 

33497. 


BTQC C as E_ com DTE stages 

/* Generate conditional test indicated by operands. ♦/ 
int 0P_C0URT /* Number of operands for instruction being passed 
to SIMPLB^CONDITICNAL. ♦/ '3 v ^ 


33499- 

33500. 

33501. 

33502, 

53503. 

33504. 

33505. 

33506. 

33507. 

3350 8, 
33509. 
33510. 

3351 1. 
33512. 
33513. 
53514. 
33515, 
33516. 
33517. 
33518- 
33519, 
53520. 
33521. 
33522, 
53523. 
53524. 
33525. 
53526. 
33527. 
33528. 
33529, 
53530. 
33531. 
33532- 
53533. 


ULIIMATE_£RANCH_LABEi ;= NEXT^CASE 

OLTIMATE^FALLTafiU_LABEL ;= BLOCK LABEL PBEPIX II •BEG* 

OLTIHATE_PALLTBHU_CONDITICH z= tru e 

FALLTHBO^LABEL used j- ^Ise 

PIBST^INDEX :=”l 

LAST^INDBX N*StSLIST 

conditional expression. ./ 

£^11 CONDITION AL_EXPRESSICN_PROCESSOR (LABEL; SYSLIST) 

/♦ Generate code corresponding to the operands of the CASE macro 

collectively as SYSLIST) . Only the SYSLIST can be passed 
directly as arguneuts; the following variables are effectively 
arguments but are passed in global variables: 

PlfiST^INDEX, 

last^index, 

ULTIMATE BRANCH LABEL, 

ultihate^fallthru^label, 

ULTIMATE FALLTHRO”CONDIT10N, 

OMigUB_LABEL_ID, 

fallthru^labei used. 

Process operands oZ the SISLIST beginning aith SYSLIST (FIfiST imdEH 

the CiSB nacio, this is the"entire 
' generating the indicated test to pass control to the 
OLTIMATE_FALLTHR0 _lAjJEL if the test succeeds, else to the 
DLTIMATE^BBANCH^IABEL. The DH1QDE_LABEL_I C is used to insure 
unique labels where needed, if a branch is made to the 
ULTIMaTB^PALLTHRU^LABEL, then set PALLTHRU LABEL USED* else 
It is unaltered, v “ 

if pallthrd_label,used 

LABEL ;= BL0CK_LAB£1 ffiEPlX ii *BEG* 

else 

LABEL := * • 
fi 

C OCP 


.0.0.0.0.0.0.0.0.0.0.040.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0,0.0.0.0.0. 


0*Q«0*0*0*0*0«0« 
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33535, 

33536. 

33537, 

33538, 

33539, 


£roc CASB_ni5C_PR0CESS 

/* Generate label for raiscellaneous block, including a branch around 
this block in case we were falling through into it. Note that a 
niscellaneous block has been found and varify that no other 
niscellaneous case has occurred for this DOCASE. ♦/ 


33541, 

33542. 

33543, 

33544, 

33545. 

33546, 

33547. 

33548. 

33549. 

33550, 

33551. 

33552- 

■3553. 

33554- 

33555. 

33556, 

33557. 

33556, 

33559. 

33560. 

33561. 

33562. 

33563. 


if CASE_LABZL_REQD 

then /* Me are falling through into this block, V 
gene rate (• B * I I 

MAftA^BLOCK^PSEPlX *C* M C ASE_COUNTE2» 

/* Generate branch to next case number (probably Cl). ♦/ 

fi 

if niSC.FOQND 
then 

flhote (8, 'SXftC3311 HULTIPLB HISC CASES IN COCASE — THIS BLOCK » H 
•IS DEAD CODE') 

else 

LABEL nAMA^BLOCK.PHEFlX jj •NSC 

/♦ Wake ilSC label outstanding (generate on next instruction) . 

It is assumed that no LABEL can be outstanding when CASE_HISC_PflOCESS 
is called, ♦/ "" 

HISC_POaND tru e 

fi 

if INDEX_RANGE^ASSURED 

mnote (8, ‘STRC3308 "DOCASE ...,OWLY” INVAIID WITH NISC*) 

INDEX RANGE ASSURED ;= false 
fi 

cor£^ 


• 0*0«0*0«0 •0*0*0*0* 0*0*0«0«0«0«0«0*0«0*0*0«P *0*0 *0* 0*0 •0«0«a*0« 0*0*0 *0*0 •0*0*0*0*0«0*0*D«0*0*0*0«0* 
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33565 - £roc C&SE_TSACK_COUNIEfl 

33566- ” /♦^Generate any debugging counters and/or labels reguested. ♦/ 


33568* 
33569. 
33570. 
33571. 
33572. 
33573. 
33574- 
33575. 
33576. 
33577. 
33578. 
33579. 
33580. 
33581. 
33582- 
33583- 
33584. 
33585. 
33586. 
33587. 
33588. 
33585. 
33590- 
33591. 
33592. 
33593- 
33594. 
33595. 
33596. 
33597. 
3359 6. 
33599. 
336Q0. 
33601. 
33602. 


if DEBUG_0LOCKCOUMTS_REQD or DE3UG_ BLOCKN AMES_BEQD 
th§n 

if DEBDG_B10CKC0UNrS_fiEQD 

then 

” /♦ Generate code to advance this case’s counter. ♦/ 

ge nera te {LABEL IJ • LH 1,’ II atOCK^LABBL^PEEFlX j| 'CTK’) 

LABEL •• 

ge nera te (• LA 1#1CD*) 

g enera te (■ STB 1,» || BLCCK_LABEL_PHEPIX || *CTB*> 

if SYSLIST(I) = 'nisc* or C ASE_COU»TEB >^255 
then 

generate (• NVI *11 MABA_BLOCK_PREFIX jt "LSC ,X * ?F* 

siss 

HEX_IN CAS£_CO«MTEH 
call XHEX { ; ) 

nnote (*, ”STfiC3313 CASE DEBUG ID==X'" H HEI_0UT Jl 
generat e (» BVI ' H MABA^BLOCK^PREFIX Jl “LSC^X’** JJ 

HEX OUT II ”• CASE NUB0EB FOR TRACING’) 

fi 

ge nerate (LABEL || • B * || BLOCK^LABEL.PBEFIX || ’GO’) 

LABEL := BLOCK.LABEL^ PREFIX 1| *GO« 

/♦ Branch around count and/or blocK naoe and set up label to be 
defined eventually. ♦/ 
if DE0UG_BLOCRNAMES BEQD 

ge nerate (« DC C*« || BLOCK_MAH£ (C1JRRENT_NEST_LEVEL) JJ 

if DEBtJG_8LOCKCODNTS_fiECD 
~^ tfae n 

aenera;^ (BLOCK_LABEL PBEFIX || "CTR DC H’O’ CASE COUNT") 

a ^ 

fi 


*0*0 *0*0*0 O* O* 0*0*0*0*0«0«o*0* 0*0 *0*0 *0*0* 0*0* 0*0 *^0* 0*0*0* 0*0*0* 0*0 *0*0*0*0*0 *0*0* 0*0* 0*0* 0*0* 
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33604, PIQC CASE OPDATE IBFO . . , 
33605. /* fieturns to nother DOCASB level possibly updated infornation vhxch 
33606. was extracted by CASE_GBT_DOCASE^IIIFO, */ 

33607. int HOtt /* Index level of DOCASB block. ♦/ 


33609. 

33610. 

33611. 

33612- 

33613, 

33614. 

33615. 

33616. 


MOH := CORREHT_NEST_LE?Et - 1 

INFOKB ATIQS (BOM) t£Ug |1 MISC_F00WD I I BU11IPLES0P4 |j 
aNEXPECTED_OPEBAliDS_POOND || INDEI_R ABGE_A SSURBD 
/♦ First byte Indicates case label is required on next 
OPERAKD1 (BOB) := CASE^COONTEE 

/* Mo need to update 0PEHAMD2 (INDEX^ADDH) or OPEfllNDl 
or OPEBABD4 (IMDEX^LEHGTH) - Mobe ever Change. ♦/ 


case. •/ 
(CASB^FOBMAT) ‘ 


«o*o*o«o«o *0 •o«o«o« 0*0 •o*o»o«o»o«o*o«o •0«0*0«0«0«0*0*0«0»0*0*0*0«0«0*0«0*0 


•o«o*o*o*o«o»o«o*o*o«o*o* 


1 
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35001. 

35002. 

35003. 


ESAC ( ; USEE^HAHE) 

/* Generate end^to match CASE block. Do standard block closing, then 
generate branch to end of mother EOCASE block. ♦/ 


35005- 

35006. 

35007- 

35008. 

35009. 

35010. 

35011- 

35012. 

35013. 

35014. 

35015. 

35016. 

35017. 

35018, 

35019- 

35020, 

35021, 

35022- 

35023- 

35024. 

35025. 

35026. 

35027- 

35028. 

35029. 

35030. 

35Q31. 

3503 ^. 

35033, 

35034. 

35035. 

35036. 

35037. 

35038. 


call TRACE^PBINTBa { ; *BSAC*) 

/♦ Print macro name ”ESAC” in mnote if tracing on. V 
if C0KBEST.SEST_LEVEL M £S TING _LI MIT 

cali VEfiIFY_EI3D C ! 'CASE*, USBR.NAME) 

^ /* Verifies current block has the name specified by the OSEfi_NAME 

operand of the BSAC macro (if any) and that it is a CASE block. 
Various errors receive messages and either intermediate blocks are 
BlENDed as a fixup or ERBOR^OCCDBBED is set. 

{Lemma; If C [IBRZKT_NEST_LB7EI > 0 and 

[USER_NAME - »*”or = BLOCK^NAME (CUHaEHT_NEST_LEV£L) ] and 
BLOCK_TYPE(C0RHE»T_NEST_LEVEL) = *CASE« , then 

ERBOH_OCCUBBED will be set fa lse and CUFBBMT.NEST^LEVEL will not 
be modified.} ♦/ 
if ERBQH_OCCORRED 
the n 
n exit 
fi 

£1 

call P0P_0LD_B10CK ( ; ) 

/* Delete current block, generating END and XII labels as required, and 
popping stack. (Lemma; POP_OLD_EIOCK decrements CUBBENT_NE5T_LEVBL 
by exactly one.) */ 
if CURBENT_NEST_LEVEL i NESTIHG^LIMIT 
then 

ge nerate (• 0 Jl BLOCK^NOBBEB {CURRBNT_NEST_LEVEL> |J 

»END*) 

/* Generate branch to end of DOC A SB. ♦/ 

m ead 

/♦ {Lemma: If COBBENT NEST LEVEL > 0 and 

{ USBR^NAME • or * BLOCK_NAME (CURREKT_NEST_LEVEL) ] and 
BLOCKlTVPE(CURaENT_NEST_,LEVEL) = 'CASE* at entry to ESAC, then 
C URBENT_NEST_LEVEL will"be decremented by exactly one.) ♦/ 


•o*o*o«o«o *o •o*o«o*o*owo*o*o« o«o*o«o*o«o*o*o*o«o«o«o*o*o«o*o*o«o*o*o*o*o*o«o«o*o*o«o*o*o«o*o«o»o*o* 
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37001, 
57002. 
57003. 
57004. 
37005, 
37006. 
37007. 
3700a, 
37009. 
37010. 
37011 . 
37012. 
37013. 
37014. 
37015, 
37016. 
37017. 
37018. 
37019. 
37020. 
37021. 
37022. 
37023. 
37024, 
37025- 
57026. 
37027. 
37028, 
37029- 
57030. 
37031 - 
37032. 
37033. 


a^ro ESACOD { ; USEfi_NA11E) 

/♦ Generates final part of DOCASG processing: for SIMPLE, COSDTEST, 

or SPARSE type docaSE, the EQU for the MISC block, (or END of DOCASE) 
to the last generated branch target is regaired; for GENERAL type 
DOCASE, the branch vector and the transfer to any syobolic 
conpares or MISC block must be generated. Finally, the block is 
popped- */ 

^nt 

CASE_COUNTEB, /♦ Holds number of last case generated. V 
T, /♦ Temporary. ♦/ 

COMP_LABEL_NO, /♦ Label number of outstanding compare case. ♦/ 
nAX^SD^VALOE, /♦ Maximum self-defined operand, ♦/ 

BASE /♦ Index within CASE^OCCURS array for CASE 0. */ 

hit 

MI SC_ FOUND, /♦ Indicates whether a niSC CASE was found. ♦/ 

BDLTIPLESOP4, /♦ Indicates whether all branch- vector operands were 
multiples of 4, */ 

INDEX_RANGE_ASSUfiED, /♦ :^ue if we have been assured (by 

"DOCASE ♦•♦,ONLY") that no values ether than those specified 
by CASE operands will occur. ♦/ 

ANY_COMP_CASES, /♦ Indicates whether any "compare" cases were 

^ generated (either CHAHCOMP or symbolic general case operands) , ♦/ 
AN¥_S ZLFDEF_CASES, /♦ Indicates whether any "self-defining" cases (to 
^ be handled by branch vector) were generated. */ 

RA NGE^TEST_BEQD /♦ Indicates that both branch vector and compare 
operands were present. V 

char 

CASE_FORMAT, /♦ Type Of CASES present; GEKERAl, SPARSE, 

CHARCObP, SIHELB, or COMDTEST. ♦/ 

IHDEX_ADDB, /♦ Address of DOCASE index. ♦/ 

KOCASE, /♦ Label for branch vector processing used for unspecified 
cases. V 

LABEL /♦ Any outstanding label waiting to be generated, 


37035. /♦ (Ground rules; Ko ESACOD proc modifies CURRBNT_NEST_LEVEL. 

37036. This can be shown by referring to the cross-reference index,} ♦/ 
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37038* 
37039. 
370iJ0. 
370U1, 
57042* 
57043* 
37044. 
37045. 
37046. 
37047. 
37048. 
37045. 
37050 . 
37051- 
37052. 
37053, 
37054. 
37055, 
37056. 
37057. 
37056. 
37059. 
37060. 
37061. 
37062. 
57063. 
37064. 
37065. 
57066* 
37067. 
37068. 
37069. 
37070. 
57071. 
37072* 
37073. 
37074. 
37075. 
57076. 
37077. 
37078- 
37079* 
37080. 
37061, 
57082. 
37083. 
37084- 
37085* 
37086. 
370B7. 
370B8. 
37009. 
37090. 
37091. 


•o*o«o*o«o 


call TRACE^PRINTBB ( : •ESACOD') 

/* Print macro name "ESACOD" in mnote if tracing on- */ 
if CURREHT^NE 3 T_LZVEL < H HSII SG^LI HIT 

call VEHIFY^END [ ; »D 0 CASE', tiSER^NAME) 

/♦ Verifies current block has the naae specified by the USEfi_MAME 

operand of the ESACOD macro (if any) and that it is a DOCASE block. 
Various errors receive messages and either intermediate blocks are 
BLZNDed as a fixup or EEBOR_OCC 8 BHED is set. 

{Lemma: If CURRENT NEST LEVEL > 0 and 

£ USER. NAM E = ’ »”or =“bL 0 CK_NAHE (CUERENT_NEST_LEVEL) ] and 
BLOCK'tYPE 'DOCASE*, then 

EfiaORloCCURBED will be set false and C 0 RRENT_BEST_LE VEL will 
not be modified.] */ 
if ERROR^OCCURfiED 
the n 
m eri t 

fi 

call ESACOD INFO UNPACK 

Extracts CASE FORMAT, CASE_COUNTER , IMDEX_ADDR, Ml$C_FOUND, 
BLPCK_LABEL^PREPIX, INDEXER ANGB^ASSUBED, and MOLTIPLESOF 4 from 
stack, ♦/ 

if CASE_FOBMAT = • GENERAL* 
then 

ciii ESACOD_GENERAL_CASB_CHOICE 

/* Generate all code to complete processing of general case. ♦/ 

if CASB_POBMAT “ *SPARSB* or = 'CHARCCMP* 
then 

T ;= KEXT_COMP_LABEL_NO (GCASE^MEST^LEVEL) 

/♦ We need to define las t"*con pare case target. ♦/ 
GCASE^NEST_LEVBL := GCASE_NEST_LEVEL - 1 
/* Pop GCASE Stack. V 
else /* CONDTEST or SIMPLE, V 
T ;= CASB^COUNTER + 1 

/♦ We need to define last conditional test target, */ 


ii 

if MISC_ FOUND 
then ^ 




SlOCK^LASEL^PfiZPIX | | *MSC*) 


fi 




1 I T 

1 1 * 

EQU 

• 1 1 

11 T 

II * 

DS 

OH' ) 


call POP_OLD_BLOCK ( ; ) 

/* (Lemma: POP_OLD„ 810 CK decrements COPRENI^NEST^LEVEL by exactly 

one.] V 


mend 

/* {Lemma: If CURRENT_MEST_LEVEL > 0 and 

[DSEB_NAME - '* or = aLOCK_NAME (CDRRERT_KEST_LE VEL) ] and 
BLOCK_TYPE(CURREN‘I,HEST_LEVEL) - ’DOCASE* at entry to ESACOD, then 
CUBRENT_NBST^LEVEL”will“be decremented by exactly one.) */ 


'0 *0*0*0* 0*0 *0*0*0 *0*0*0* 0*0*0 *0*0 *0*0 *0*0*0 *0*0 *0*0*0* 0*0* 0*0 *0*0 *o*o* o*o*o*o*o*o*o*o*o* 
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3709 3. £^c ESAC0D_I»F0_UHPACK 

^7094, /♦ Extract the folloiiing iaforaa.tion £ro» the stack: */ 

37096, CA5E_C00KTEfi ;= OPEBAMDI (COHBEIIT NEST 1E7EL) 

37097. INDBX_ADDE ;= OPERA N D2 (CUBBENT~MEST“lEVEI.) 

37098, CASE_POBttAT := 0PERAND3 (CUfiaENT_N EST“ lb?ZL) 

37099. BISC_FO0SD := INFOfiBAIIOM (CUREEMt BEST LEVBL)[2,1J 

37100. HULTTPLESOP4 ;= INFORN ATICK (CUBKENtIbEStIiEVEL) [ 3, 1 ] 

37101. INDEX_BANGE_A$SUHED ;= INFOBB ATION (CUEBENT_»EST_tE VEL) [ 5^ 1 ] 

37102. BL OC K_ LA BEL_ PREFIX ;= •$* |i BLOCK_»UHBE R (CDBHENT_HEST LEVEL) 

37103. 


«0*0«0«0«0*0«0« 0«O« 0«0*0«0*0«0«o«0*0«0 •o«o»o«o»o«o«o»o«o*o*o*o*o«o*o«o«o*o«o*o«o*o*o*o*o*o«o*a* 
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37105, £roc ESACOD_GEHEHAL_CiSE_CflOICE 

37106. /♦ Generate all code to complete processing of general case. 

37107. Includes the generation of a branch vector, if reguired. */ 


37109, 

37110. 

37111. 

37112. 

37113. 

3711U, 

37115. 

37116. 

37117, 

37118. 

37119, 

37120. 

37121. 

37122, 

37123, 

3712i*. 

37125. 

37126. 

37127, 

37120. 

37129. 

37130- 

37131. 

37132. 

37133. 


call BSACOD_GENEHAL_CASE INFO 

/* Popa,«AJt_SD_VALUE7 CC«P_LABIL NO, 

and BASE (of CASE OCCOBS array) out of GCASE stack. */ 
if EBB0K_0CCUEREi) 
then 

if ANy_SELFDEF_CASES 
the n^ 

iiil BSACOD^SEtFDEF^GEB 

/* Handles branch vector-type iiiiploinentation for all cases which 
contain self-defining terns (of value < 256). Also generates 
linkage for any. other terms and/or MISC case which were used 
with the self-def iners, ♦/ 


fi 


/♦ No self-definers were present. */ 
if ANY_CQMP^CASE$ 
then 

call ESACOD_GENEfiAL_SYMB_ONLI 

/* Generate linkage to prccess symtolic operands and RISC in the 
absence of self-def iners. */ 

Sige 

^ote (8, •STBC3701 DOCASE CONIAINS NO VALID CASES') 


c orp 


• O*O*0«0V0VO V0*0«0* 0*0 •0«O«O*O#0 •o*0«0«0«0«0*0*0«0»0*0«0*0«0*0*0«0 *0*0*0 *0 * 0*0* O* 0*0* 0*0 *0*0 •o*©*©* 


C-60 



"ESACOD'» Macro ~ 3 July 1973 

37135, £roc ESACOD_GENEflAL_SyMB_OtiLY 

37136. /♦ Generate linkage to process symbolic operands and fllSC in the 

37137, absence of self-d ef iners (self-def ined terms of value < 256). */ 

371h0. 

371<*1. 

37142. 

37143. 

37144. 

37145. 

37146. 

37147. 

37148. 

37149, 


•0*0*0*0*0*0*0*0*0* 0*0 «0*0*0 • 0*0 0*0 «0 « 0*0 O «j0«0* 0*0* 0*0*0 *0*0 *0*0* 0*0* 0*0*0* O *0*0* 0*0« 0*0*0 CO* 


asasrate (BLOCK_LABEL PREFIX || *BEG EQU « || 

BL0CK_LABBL_PREFIX || '.C1<) 
if BISC^FOUSD 

qe Derate (BL0CK_LABEL_PRBFIX || 'C* || COMP LABELING |J * EQU ■ || 

BLOCK^LABEL^PBEFIX |j *MSC*) 

e^se 

generate (BLOCK LABEL PREFIX || J| CCH E_LAEEL_MO || » DS 0H*> 

£1 

COT£ 
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57151. 

37152. 

57153. 

57154. 


£roc ESACOD_SELFD£F_GEN 

/* Handles branch vector generation for processing cases defined by 

ining teriDS (of value < 256) . Also generates linkage for 
symbolic terms and/or MISC case following self definers. */ 


37156. 
57157. 
37158. 
37159. 
37160, 
37161 , 
37162, 
37163. 
57164. 
37165. 
37166. 
37167. 
37168. 
37169, 
57170. 
57171, 
57172. 
57173. 
57174, 
37175, 
57176. 
37177. 
37178. 
37179. 
37180. 


LABEL ;= BLOCK_LABEL_P£EFIX |J »BEG» 

/♦ Note that BEG label must be generated on first instruction, ♦/ 
docase if any 
of 

ca^ ANY_COHP_CASES 

NOCASE’':^ al0CK_LAaEL_PBEFIX J| *01* 
es ac 

case MISC^FOUND 

N0CA5E 7 = BLOCK_LABEL_PHEFIX j | *«SC* 
ca^ fliis c 

BOCASE := 3L0CK_LABZL_PFEriK j.J <END< 
esac 
esacod 

EANGE_TBST_flEQb := ((-. IN DfiX^H ANGE_ASS UREE J or ANY COMP CASES) 
if RAHGE_TEST_HEQD ^ 

then 

call ESACOD,OUT_OF_RABGE_CHECK 

/♦ Generate check for index out of the range 0 through 
MAX SD_VAL0E. ♦/ 

ti 

call ESACOD_BRVCT^GEB 

/* Generate branch vector and all final constants and equates 
required. */ 

corp 


o«o*o*o«o •o*o*o*o« 0 * 0 ■o«a«o*o«o*o«o«o«o*o*o«o«o*o«o*o*o«o«o«o«o*o«o«o*o*o*o*o< 
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37182, B£2£ ESAC0D_GEH2fi AL_CASE_1 NFO 

37183. Pops following inf crniation out of GCASE stack.. Indicates success 

371841. (or lack thereof) in ekroe^OCCORRIE. V 

37185. int I 


37187. 

371B0. 

37189, 

37190. 

37191. 

37192. 

37193. 

37199. 

37195. 

37196. 

37197, 

37198. 

37199. 

37200. 


I GCASE_NEST_LEVBL 

GCASE_NEST LEVEL : I - 1 

if I > GCASE_HEST_LiaiT 
then 

EfiBOR_OCCUKfiED ;= true 


else 

MAI_S DEVALUE 
ANY^SELFOEf .CASES 

comp_iabel.no 

AKI_C0HP_CASES 

BASE 

ERflOE.OCCUBBEi) 


MAX CASB.VALDE tl) 
(MAX_SD.V ALOE > 0) 
NEXT_C0ip_LABBL_N0 (I) 
(COni_LABEL_NQ > 1) 
(<I-1) ♦ 256) ♦ 1 
false 


fi 


corp 


■ 0*0«0»0*0*0*0«0«0* O«0«0*0«0«0*o«0* 0«a«0»0 *0 •0«0«0«0*0«'0*0*0«0*0«0«Q«0*0*0«0»0«0«0*0*0«0«0«0«0«0«0* 
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37202. PEO C B SACO D_OlJT_OP_EANGE_C HECK 

37203. /• Generate check for index out of the range 0 through MAI_SD_^VAL0£ to 

37204. branch to the KOCASB label. In addition, if all cases are multiples 


37205. 

of 4, branch 

if index is not. */ 

37207- 

if INDEX ADDE = •• 




3720 e. 

then /* Index is in GPB1. */ 


3720 9, 

aSJlSISiS (lAflBL 

11 • 

LTB 

l.V) 

37210. 

if CASE_OCCOBS(BASE) 



27211. 

/♦ CASE 0 

occurs. ♦/ 


37212, 

aeuerate f 


BH 

* 1 1 NOCASE) 

27213. 

else 




37214. 

qenerate 


BNP 

’ I 1 NOCASE) 

37215. 

fi 




37216, 

generate 

C 


II BLOCK_LABEL_PREFIX |] »SIZ*J 

37217. 

qenerate 

BO 

* II 

NOCASE) 

57218, 

if HDLTIPLBS0F4 




37219. 





37220, 

q^Dgrate ( • 


LA 

0,3M 

37221, 

generate (' 


KB 

0,1*) 

37222. 

qenerate 


BNZ 

• 11 NOCASE) 

37223. 





37224. 

gjss 




37225. 

qenerate fLABBL 

tl ' 

CLI 

' II INDEX^ADDH || *,* || HAX SD VALUE) 

37226. 

qenerate i* 

BH 

’ M 

NOCAS BJ 

37227. 

if MDLTIPLESOP4 




37226. 

then 




37229. 

generate 


TM 

' II INDEX ADDB || ", B • 0000 001 1 * ") 

37230- 

qenerate (• 


BNZ 

• 1 1 NOCASE) 

37231. 

tk 




37232, 

fi 




37233. 

LABEL ;= *• 





27234. c orn 


«0*0*0«0«0«0«0*0*0* 0*0 •0«0*0*0tto»0*0«0*0*0«0«0* 0*0*0* o«o*o«o«o«o«o*o*o«o«o«o*o*o*o*o*o*o«o*o*o*o*o* 
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37236, 

37237. 

37238. 

37240. 

37241. 

37242. 

37243. 

37244. 

37245. 

37246. 

37247, 

37246- 

37249. 

37250. 

37251. 

37252. 

37253. 

37254. 

37265. 

37266. 

37257- 

37258. 

37259. 

37260. 

37261, 

37262. 

37263. 

37264, 

37265. 

37266, 

37267. 

37266. 

37265. 

37270. 

37271. 

37272. 

37273. 

57274. 

37275, 

37276. 

37277. 

37278. 

37279. 

37280. 

37281. 

37282. 

37203- 

37284. 

37285, 

37286. 

37287. 

37288. 

37289. 

37290. 

37291. 


££S£ ESACOD_BBVCT_GEN 

^ /♦ Ge Derate bcanch vector proper. ♦/ 

int I, INCa 

if IBD£X_ADDB # * •' 

then /♦ Generate code to put byte index into GPfll, ♦/ 
gene rate (LABEL |i * SR 1 » 1 ') 

Label“:= • » 

Senera^ (' IC 1,* li IWDEX^ACDR) 

f i 

if MOLTIPLESOP4 
t hen 

INCH := 4 
else 

INCR 1 

ge nerate (LABEL M ' SLA 1,2*) 

LABEL • • 
f i 

if CASE^OCCURS (BASE) or INDEX^ARDfi # 

then /♦ Zero case must te included in branch vector, ♦/ 
generate (LABEL || • B ♦♦4(1)') 

I := 0 

generate (LABEL M' B 
I ;= IKCR 

/♦ SXip the zero case and start with case 1 (or case 4). ♦/ 
fi 

LABEL ;= " 

whj^e I < MAX SO VALUE 

if CASB_OCCUBS(BASE*I) 
then 

g enera te (■ B • || BLOCK^LABEL^PBBFIX ll 'G' J| I) 

g ener ate (• B ' H HOCASE) 

fi 

I := I ♦ iRCfl 

/* {Ternination: IHCR > 0, so I is incremented in loop; 

MAX_SD_VALUE is fixed; therefore I must eventually exceed 
dAX_SD_VAL0E.) */ 

if RAMGE_TEST_REQD and IHDBX^ADDB = '* 
then 

ge nerate (BLOCK_LABEL^PREPIX H "SIZ DC II «AX_SD_VALDE j| 

rr » njl 

u 

if AMY_COMP_CASES 
then 

ig BISC^FOUND 
th ep 

gene rate (BLOCK LABEL^PSEFIX || 1| COMP_LABEL_NO 1| • EQU » J| 

BLOCK_LABEL_PBEFIX || 'MSC') 

els e 

g enerate (BLOCK_LABEL_PEEriX || 'C || COHF LABEL BO j 1 • DS OH*) 

fi 

fi 

corn 


•o*o»o«o*o*o«o«o«o*o*o«o»o*o*o«o«o« o*o«o*o*o*o*o*o*o«o*o*o«o*o*o«o«o«o*o*o*o«o*o*o*o«o*o*o*o*o»o*o* 
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fllOO 1. 
U^QQ2. 
41003. 
<1 1004. 
U 1005. 

41007. 
41008. 
41009. 
41010. 
41011. 
41012, 
41013, 
41014. 
41015, 
41016. 
41017. 
41018, 
41019. 
41020. 
41021. 
4 1022 . 
41023. 
41024, 
41025, 
41026. 
41027. 


m^ro BLOCK (U3ER_NAME; } 

/* Generate simple one^in-one-*out blocX in structure with name 
specified. ♦/ 
char LABEL 

/* Contains any outstanding label waiting to be generated, */ 

call TRACE_PRIMTER ( ; ‘BLOCK*) 

/♦ Prints macro name »B10CK" in mnote if tracing on. */ 
call P0SH_HEtf_BLOCK (USEB_MAWE; BLOCK_TYPE_VAL0E^* BLOCK * ) 

/♦ Define new block; add to stack. Initialize block specifications. 
Note block type and set up a unigue BICCK_LABEL_PHEFIX for use in 
generating labels. ♦/ 
if ERROR_OCCOafiED 
then 
aexit 

ii 

LABEL 0SER_NAHE 
cail BLOCK_TaACE_COUNTER5 

/** If block counts were reguested, generate counters and incrementing 
instructions. Any label waiting to be defined is returned in 
LABEL. V 
if LABEL * ♦ * 
then 

generate {LABEL [| * os Oh*) 

/* Define label if one reguired and not yet defined, */ 
f i 

fliepd 


i 0 » 0 « 0 * 0 * 0«0 * 0 « 0 * 0 * 0«0 *0«0«0«0«a«0»0 *0 ■0*0*0 •0«0«0*0*0*0*0« 0 * 0 * 0 « 0 * 0 •o«o*o*o«o»o»o«o *o« o*o*o»o»o*o* 
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41029, 

41030. 

41031. 

41033, 

41034. 

41035. 

41036. 

41037. 

41038. 

41039- 

41040. 

41041, 

41042. 

41043. 

41044, 

41045. 

41046- 

41047. 

41048. 

41049. 

41050, 

41051, 

41052. 

41053. 

41054. 

41055. 

41056. 

tll057. 


pro c BLOCK_TBACE_COU»TEBS 

^ /♦ Generate debugging inforaation requited block name constant 

and/or block counters. ♦/ 

if DEBOG_BLOCKCOUNTS_HEQD or DfiBUG_BLOCK N AftES_REQD 
then 

if debug^blockcookts^becb 

the n 

/♦ Generate block count incrementing instructions. ♦/ 
g enera te (LABEL |1 • LH 1.’ II BLOCK_LABEL_PaEPIX || 'BLC*) 

label /♦ Clear LABEL to show it has been generated. ♦/ 

ge nera te (* LA 1,1(1)*) 

generate (• STB 1,* II BLCCK_LABEL_PHEFIX || *BLC*) 

fi 

generate (LABEL || * B • I1 BLOCK^LABEL^PREFIX || *G0*) 

/♦ Generate branch around block name and/or count. */ 

LABEL := BLOCK_LABEL_FREFIX || *GO» 

/* Establish GO label as reguiring definition. V 
if DEEaG^BLOCKNAHES.BEQD 
the n 

g enera te (*' DC C*’» || BLCCK^NAIIE <CURRENT_HEST_LEVEL) I1 

« • , OH * 0 • « ) 
fi 

if DBBBG_BLOCKCOUNTS_fiECD 
~^then 

(0LOCK_1ABEL PREFIX |j «BLC DC H*0» BLOCK COUNT") 

fi ^ 
fi 

corg 


• 0«0«0»0*0*0«0«0»0* 0*0 «0*0 ♦0*0*0 •0*O«O *O«0 •0*0*0*0*0*0«0* 0*0 •0« 0*0*0 *0«0*0*0* 0*0* 0*0*0*0" 0*0 *0*0 *o* 
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U300U 

<*3002- 

<13003- 

<*3004- 

<13005* 

43006. 

43007- 


jnasro BLEND ( ; USEB^NAftE, EETDRK-^, 1INK=1<», B£STOBE=, RC^) 

/♦ The BLEND nacro acts as a generic naiae for fl, OD, ESAC, ESACOD, and 
PEOC and as a teruinating macro for BLOCK- For any 
of the foraer, the proper macro is invoked depending on the 
block type being terainated. For ELCCK blocks, the block is 
sisply terminated. V 
ifll I /♦ Temporary. ♦/ 


<*3009. 

43010. 

43011, 

43012. 

43013. 

43014- 

43015- 

43016- 

43017. 

43018- 

43019- 

43020- 

43021. 

43022. 

43023, 

43024, 

43025- 

43026. 

43027- 

43028. 

43029. 

43030, 

43031. 

43032, 

43033. 

43034- 

43035. 

43036. 

43037- 

43038. 

43039. 

43040- 

43041. 

43042. 

43043, 

43044- 

43(V*5, 

43046. 

43047. 

43048. 

43049. 

43050. 

43051. 

43052. 

43053. 

43054. 

43055. 

43056, 

43057, 

43058, 

43059- 

43060- 

43061. 

43062- 


call TRACE_PRINTER ( ; *BLEND») 

/* Prints macro name "BLEND" in anote if tracing oo, ♦/ 
if CURBENI_NEST_LE7EL > NESTING LIMIT 
then ^ ^ ^ 

^11 POP_OLD_BLOCK < ; } 

slii 

if CDBHENT_NEST_LEVEL = 0 
then 

anote (8, »STfiC4301 NO BLOCKS ACTIVE — «BLEND« IGNORED*) 
else 

l“:= CURRENT_NEST_LEVEL 
ii USEE_NAME ** 
theq 

irliile I > 0 BLOCK^NAME (I) * USEB_NAM8 

I := I - 1 


od /* {Tera ination: I is decremented — must eventnally become 

5 zero.) ♦/ 

if I == 0 
then 


(8, *STfiC4302-HO BLOCK ACTIVE NAMED * |1 USER NAME J| 
* — "BLEND" IGNORED*) 


d ocasc BLOCK TYPE <I) oail 

of 

case *IF* 

caii FI ( ; OSEB^NABE) 

es^ 

ca^ »DO* 

call OD ( ; USE BYNAME) 

es§c ^ 

case *CASE* 

call ESAC { ; USBB_NAHE) 

case ’DOCASI* 

ca ll ESACOD { ; USEB^NAflE) 

esac 

case *PROC* 

call COBP ( ; DSEB.NAHB, HETURN=BET0aN , LINK = LINK, IlESTOHE=flESTORE, 

ac=RC) 


U 


mnote 

merit 


esac 

ca^ ‘BLOCK' 

call POP OLE BLOCK ( ; ) 


esac 

esacod 


mend 

/* {Leaina: If CakHEHT_NEST_LEVEL > 0 and 

[ USER_NAME = * » or = BL0CK_N ABE (C0RREHT_NSST_LBVEL) J at entry to 
BLEND, then CU HBENT_HEST_LEVEL will be decremented by exactly 
one.) V ^ ^ 


*0*0*0 *0*0 •o*o«o«o*o«o*o«o«o^o«o*o«o«o *o 


>0«0*0«0«£)«0*0*0«0*0*0«0*0*0«0«0*0*0«0*0»0«0*0« 0»0»0»D«0*0» 
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53001, m^ro FINAL ( ; ) 

5300 2. Insure all blocks are closed- Then if SA?ETitACE_0!l_FIRSi!_PflOC, 

53003. define label $LASTSAV to be PREV_SAVETFACE^AfiEA and EgUate 

5300U, PREV_SAVBTRACE_PTB to 0- ♦/ 


53006. 

53007. 

53C08, 

53009, 

53010. 

53011. 

53012, 

53013. 

5301 ^ 4 . 

53015. 

53016. 

53017. 

53018. 

53019. 

53020. 

53021. 

53022. 

53023. 

53024. 

53025. 

53026. 

53027. 

5302B. 

53029, 

53030. 

53031. 

53032. 

53033. 

53034, 


can TRACE_PRINTEE ( ; < FINAL'.) 

/♦ Print macro nane "FINAL” in mnote if tracing on. V 
while CURFBNT_N£ST_LEVEL > 0 

3a” 

if C08BESI_KEST_LEVSl > «ESIIMG_LIHIT 
the n 

PDQte (B, 'STRC53C1 BLEND OF OUTSTaNDIBG BLOCK ASSUHBED') 
els e 

^ note (8, 'STHC5301 BLEND OP • || BLOCK^NA »E (CUEEENI^NEST.LE VEL) |J 

• ASSUHED*) 

Zi 

call BLEND ( ; ) 

/♦ {LeniiDa: If CUfifiENT_NEST_LEVEL > 0 and no BLEND operands are 

specified, CURHEBT_NEST_LEVEL will be decremented by exactly 
one.} */ 

od /* {Termination: CDBRZNT_NEST_LEVEL decreases aonotonically 

and therefore must eventually beccme < 0.) */ 
if SAVETRACE_ON_FIRST_PROC 
then 

if PSEV^SAVETRACE^PTR = 'SPIRSTSV* 

^en /♦ Ho noD-'OS procs occurred; generate dummy area. ♦/ 

ge nerate (”$PIflSTS7 DC 0P*0' ,X*FFFFFFFF » ,A (0,0) DUnHY SAVEAREA”) 
g enera te (*$LASTSAV EQU 5PIRSTSV) 
els e 

g enerate (*$LASTSAV EQU * || PREV_5AVETBACB_AfiBA) 
g enera te (paSV_SAVETSACE PTR || • EQU 0*) 

fi 

fi 

send 


«o»o*o»o*o*o*o«Q«o« o«o*o*o«o*o*o*o«o«o«o*o •0*0«0*0«0«0*0«0«0«0«0«0*0*0*0*0*0*0*0*0«0«0«0*0*0*0«0«0* 
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55001. jnajcro EXIT (USEH^NAftE; iiXir^TABGET) 

55002. ^ /* Find exit point. Generate branch. */ 

5500ii- 
55005- 
55006, 

55007- 
55008, 

55009. 

55010. 

55011. 

55012, 

55013- 
5501<*. 

55015. 

55016. 

55017, 

55018. 


•o*o*o»o«o*o»o«o»o« 0«0«0^0#0^0*o*0^0*0«0«0*0*0*0*0*0»0«0*0*0*0*0»0»0*0*0*0*0«0«0*0»0*0»0*0*0»0*0»0* 


call TEACE^PRINTER ( ; »EX1TM 

/♦ Print laacro name "EXIT" in nmote if tracing on. V 
if CUBREKT_HEST_LEVEL > N ES TING ^11 MIT 
then 
raexit 
fi 

call EXIT_FIHD ( ; EXIT^TARGET) 

Set ULTinATE_BRANCH_LABEL to point to end of block whose name 
is the arguBent aad ,arl as meedoBg an XIT label; if no such block, 
issue message and set ERROB_OCC(fRRED. */ 
if ERROR^OCCUfiHED 
then 

3£ESrate (USEB_NAHE H ' B * II OtTIMATE^BBA NCH_LABEL) 

ii 

a end 
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61001- 

01002 * 

81003, 

81004. 

81005. 

01006. 

81007, 

€1008- 

81009. 

81010. 

81011. 

01012 . 

61013. 

81014. 

81015. 

61016. 

81017. 

81018. 

81019. 

81020. 

81021- 

61022. 

81023, 

81024. 

81025. 

81026. 

81027. 

81028. 

61029. 

81030. 

81031. 

81032. 

81033. 

81034, 

81035. 

81036, 

81037. 

81038. 

81039. 

81040. 

81041. 

61042, 

81043. 

61044. 

61045. 

61046. 

81047. 

81048. 

81049, 


Q^ro PEOC lUSES^NAHE; LIIIKAGE=,. BASE^^ »CEK=, SAVE=, 

DEflUG=, EXtT=) 

/♦ Defines a procedure block. If LlEKAGE=OS is specified, standard 
OS save area conventions are followed; othemise a simple Don- 
linked save area is provided. A base register is established 
(unless BASE=NOHE is specified under CS_LIMKAGE or BASE= is 
omitted on local PHOCs) . Eegister values upon entry are 
saved to allow restoring at COEP time. ♦/ 

bit 

FIBST^PEOC, /* Indicates whether this is the first PEOC macro coded 
” in this assembly. */ 

FIHST_VALOE_K»Otf», /♦ Indicates whether the first SAVE= operand was 
a sel£*-def ining tern (or omitted) or if it was symbolic. ♦/ 
OS_LINKAGE, /♦ Indicates whether L1NKAGI= {OS, •••) was 
entered. ♦/ 

SPECIAL^PREFIX, /* Indicates whether the DICCK_LABEL_PREFIX was 
changed to the special debugging form */ 

USING 13, /* Indicates whether the base register is GPB13. */ 

MDLTIBASE, /* Indicates more than one base register was 

reguested, but adcons for loading have not yet been generated. V 
¥ORKREG_USED /* Indicates whether the value in WOEKEEG was 
'modified and its contents saved in register 0- ♦/ 

char 

COMMA 2, MOLT, /* Contain « and respectively if a range of 

registers is to be saved, or the null string if a single register 
to be saved. Used to generate ”STM" or *‘ST“ instruction, ♦/ 
FIRST, LAST, /* First and last register in range to be saved. */ 

LABEL, /♦ Any outstanding label waiting to be generated. 

LOCAL^POINTER, OS^POINTEH, /♦ Instruction segments to generate 
store instruction for proper save area. */ 

PREVI0US_DEBUG_VECT08, /* Holds value of debug switches on entry to 
PEOC macro for restoring on exit from COEP. ♦/ 

PHQC_ID_BYTE, /* Value of hex proc number (PROC_CODNTBR in hex) 
used in various debugging instructions. */ 

SAVE_LENGTH, /♦ Length of save area (in words), except length of 
register part only for local PBOCs. */ 

SAVE TYPE, /* Type of save area generated: FULL (savetrace) , OSSAVE, 

NOBML, KOEHLHDE, TRUNC, THDNCHDR, or NCNB. ♦/ 

SAVEREG, /* Register (work or base) which is pointing at new 
save areabefore chaining. V 

80SKREG /* Register used for setting up linkage, etc, */ 
ini 

OFFSET, /♦ Offset (in words) to either FIRST (if PIRST_VALOE_KNOHN) , 
or to GPfiO within save area. '*'/ 

OFFSET_TO_GPRO, /♦ Offset in words to GPRO within save area. ♦/ 

SAF, SAL '/* Register number to go into first register word of 

save area; this, for example, could be 14 even though FIRST 
is a symbolic register of unknown value at macro expansion tine. 
SAL is similar but for last register. ♦/ 
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61051- 

81052. 

61053. 

81054. 

61055. 

81056- 

81057- 

81058. 

81059, 

81060. 

61061. 

81062. 

B1063. 

81064. 

81065. 

61066. 

81067- 

81060. 

81069. 

81070, 

81071. 

81072. 

81073. 

81074. 

81075- 

81076- 

81077- 

81078. 

81079. 

61080. 

01081- 

61082. 

81083. 

61084, 

61065. 

61066. 

61087. 

61088. 

81089. 

81090. 

61091. 

81092. 

81093. 

81094. 

81095, 

61096. 

81097. 

81098, 

81099. 

81100. 

eiioi. 

81102. 

€1103, 


call TRACE^PBIHTER ( ; *PBOC*) 

/* Print macro name "PfiOC” in mnote if tracing on, ♦/ 
call P0SH_MEi_BLOCK <OSEa_llABE; BLOCK^TY PE^VAtOE^' PBOC ■ ) 

/♦ Define new block; add to stack. Initiali 2 e block specifications. 

Note block type and set up unique ELOCK_IABEL^PfiEFIX for use 
in generating unique labels. ♦/ "" 

If EHROR^OCX:aRBED /* durring PUSH^NEN_BLOCK (viz,, stack, overflow) ♦/ 
then 

mexit 

fi 

LABEL USER^NAEE 

/♦ Generate PROC's name at first opportunity. ♦/ 

^11 PBOC_SCAH_OPTIONS 

/* Validate LINKAGE^ and NORK» keywords; issue error messages and set 
OS_LINKAGE and NOBKBEG. Process completely DEBUG and EkIT keywords. 
Change BLOCK_LABEL_ PREFIX if necessary to special PROC form 
(indicating change in SPECIAL_PBEFII) and set value of FIRST PROC. */ 
call PROC_KEAD£R 

/♦ Generate «CSECT« and "USING *^15« if required. Handle in-line 
ID (a la IB« SAVE macro). */ 
sail PROC^BEG_SAVE 

/♦ Set SAVE^TYPE and SAVB^LEHGTH to indicate type of save area 

required. Save contents of general purpose registers, if 'required. ♦/ 
call PBOC_ESTABLISH_BASE 

/♦ Set up base register where reguired and issue USING. Set USI1JG13 if 
base register to he loaded into 13 was put temporarily into 
HORKBEG. If multiple base registers, set MULTIBASE. ♦/ 
call PBOC.GEN_SAVEAREA 

/• Generate proper save area depending on the variables SAVE^TYPE and 
SAVB^LENGTH set by PROC^BEGjSAVE and depending on the SAVE macro 
operands. */ 
caii PROC^nOLTIBASB^GEN 

/* Generate definition cf adconds for multiple base registers. */ 
caii PR0C_DEBUG^ STUFF 

/* Generate trace and count code for debugging, if requested. ♦/ 
if WORK = *H0NE* ^d WORKHBG^USED 
then 

genera te (LABEL M * LB * i| yoRKBEG || *,0') 

/* Restore NORKRBG. V 

LABEL := • • 
fi 

if LABEL * ’ * 
then 

qe ne r ate (LABEL |) « DS OH*) 

fi 

if LINKAGE (2) * 'CSECT* 
then 

generate (* DROP 15*) 

/♦ DROP for USING generated by PBOC BEACER- */ 

fi 

call PEOC_INFO_SAVE 

/♦ Save any information necessary to generate COfiP macro. ♦/ 

mend 


• 0«0*0*0*0«0 *0*0*0* 0*0 *0*0 *0*0*0 *0*0 *0*0 *0*0 *0* 0*C*0* O *0* 0*0*0 *0* 0*0 *0* 0*0* 0*0*0 • 0*0*0* 0*0* 0*0* 0*0* 


C-72 



«PfiOC« Hacro 


5 July 1973 


€1105. eroc PROC_SC&N_OPTlOMS 

81106. ^ /♦ Validate LIKKAGE= and WORK- keywords: issue error messages and set 

61107. OS_LINKAGE and HOfiKKEG (the latter receiving either the register 

€1106. specified by the MOIlK= operand or sone default). Process completely 

61109. the DEBUG= and EXIT- keywords. Change BLOCK_LaBEL_PBEPIX if 

€1110- necessary from the normal *’$ ddb ” to the special Pfioc prefix 

81111. «*iP££". set FlfiST^PBOC to indicate whether this is the first 

81112. PHOC macro coded in this assembly. ♦/ 


81114, 

£1115. 

81116. 

81117. 

81118. 

61119. 

81120. 

81121. 

81122. 

81123. 

61124. 

81125. 

81126. 

81127. 

81128. 

81129. 

81130. 

81131. 

81132. 

81133. 

81134. 

81135. 

81136. 

£1137. 

€1138. 

81139. 

£1140. 

81141. 

81142. 

81143. 

81144. 

81145. 

61146. 

81147. 

8114B. 

61149. 

81150. 

81151. 

61152. 

81153. 

81154, 

81155. 

81156. 

61157. 

81150. 

€1159. 

81160. 

81161. 

81162. 

81163. 

81164. 

81165. 


OS LIKKAGH ;= 
if”LIHKAGE(1) 
then 

anote (8, 


(LIHKAGE(I) ^ **) 

!t * OS ■ # • • 

•STRC8101 LINKAGE** || LINKAGE(I) 
IWVALID — «OS« ASSUMED*) 


M 


fi 

if LINKAGE{2) * *CSECT* and # *• 
t hen 

jyiote (8, *STBC8102 SECOND LINKAGE OPEBAND IGNCHBD*) 
f i 

yOBKRBG :* HORK^ 
if WORKKEG = ‘HONE' 2£ = * ' 
then 

/♦ Pick default NOBKREG. We will restore it later 
it gets clobbered. */ 
if OS^LINKAGB 
thgn 

WORKREG := *2* 

WORKREG *1* 


if WORK=NONE and 


fi 

fi 

EXIT_SEVERITY := EXIT 

/* Save specified severity for EXIT target mnotes. ♦/ 

PIBST_PROC := -• NOT^FIflST^PBOC /* Brilliant, eh? ♦/ 

NOT FIBST^PHOC true 

“/* Note whether this is the first proc and set global NOT^FIBST^PROC 

so we will be able to tell on later PROCs. Note that we are making 
use here of the fact that global hit variables are initialized to 
fjlse. V 

call PHOC_DBiuG_SET 

/* Set debugging switches according to DEBUG* operand, saving prior 
values for restoring at CORP time in PREVICUS^DEBUG^VECTOR. ♦/ 
SPECIIL^PREFIX 1 = (DEBUG^SAVETBACE^BEQD or 
^DEBUG PfiOCTBACfi^REQD or 
debug'’proccounts_reqd) ^d 
PaOC_COONTEa”< 254 
if SPECIAL^PREPIX 

then /♦ We want to label this proc with a hex proc noober. ♦/ 

PBOC_COUNTER :* PROC^COONTEB +1 

/* Advance counter only on those procs which use it. */ 

BEX_IN PBOC^COUHTER 
call XHEX { 1 

PROC ID^BYTE := HEX^OUT 

BLOCK^lIbEL.PBEPIX :* *$P’ II PBOC_ID_EITB 

/♦ Change labels on PBOC to ease understanding of debug information, 
ronote (♦, *STfiC8108 PBOC • || BLOCK^NABE (CUBRENT_NEST_LEVEL) || 

", DEBUG ID=X*« 11 PROC^IC^BYTE || "*") 

else 

PflOC_ID_BTTE := *00* 

fi 

£ 2 ^ 




•0«0*0*0«0 •O«0»0»0* 0*0«0*0»0«0«o«o*0«0*0*0*0«0*0»0*0«0«0*0*0»0»0»0»0»0*0*0*0*0»0»0«0«0*0*0*0*0«0«0« 


C-73 



*'PEOC” Macro 


5 July 1973 


B1167. 

£1168. 

£1169- 

61170- 

£1171. 

61172. 

61173. 

£1174. 

81175. 

81176. 

81177. 

61178. 

£1179. 

81180- 


proc PROC_DEflUG_SET 

/* Save the previous D2B0G specifications so they can be restored at 
CORP time- Scan the DEB0G= suboperands setting the debug flags 
indicated- If GLOBAL is specified send null restore value to 
suppress it. ♦/ 
bit 

GLOBAL, /* Indicates whether "GLOBAL” has been found as an 
operand of EBB0G=. */ 

SA VBTBACE^VALUE, /♦ Set t£ue if SAVEIRACE is to be turned on; set 
fals e if SAVETBACE is to be turned off; else not set. 

SAVETBACE_CH£CK /♦ Set tru e if SAVETRACE to be set either on or 
off. V 

int 

I /» List suboperand index. ♦/ 


81182- 

81183, 

81184. 

£1185. 

£1186. 

81167. 

eiua. 

£1189- 

81190. 

81191. 

81192. 

81193- 

81194. 

81195. 

81196. 

81197. 

81198- 

81199- 

81200- 

61201- 

81202- 

81203. 

81204. 

61205. 

£1206. 

£1207. 

61208. 

£1209- 

81210- 

81211- 

81212- 

81213. 

81^14. 

61215. 

81216. 

81217- 

81218. 

81219- 

01220 , 

81221, 

81222- 

81223- 

81224- 

81225- 

81226- 

61227. 

61228. 

£1229. 

81230. 

£1231. 

81232. 

81233. 

£1234, 

81235- 

81236. 

81237. 

81238. 

£1239. 

81240- 

81241-' 

81242- 


GLOBAL false Has not yet been found- ♦/ 

PREVIOUS., CEBUG_VECTOR 

D EBUG., BLOCK NAfl H S_ FB Q D | j 
DEBUG_PROCNAHES_REQD j | 

DEBUG^LISTBLOCKS REQO l\ 

DEBUG_BLOCKCOUNTS_HEQI) || 

DEBUG_PROCCOUNTS_BEQD |J 
DEBUG_PBOCTRACE_REQD JJ 
DEBUG_CORPV ALUES^RBQD {J 
DEBUG_SAVETRACE_REftD 

/♦ Save current value of debug switches- */ 

I := 1 

I ^ N' DEBUG 

do /* Scan all operands . */ 

DEBUG (I) 
of 

'case (»GL03AL*, »GBL‘) 

GLOB AL : - tr ue 
6 sac 

ca^ (• BLOC KNA RES *BB*) 

DEaOG_aLOCKKAMES_BEQD ;= true 

/♦ BLOCK NAMES causes the name of each block to he generated as an 

in-line character constant at the start of each block {of any type, 
not just BLOCK macros) for ease cf locating code in dumps- */ 

e sac 

ca^ (*»OBLOCKKAM£S*, *NBN*) 

DEBOG_BLOCKNAHE5^BEQD := false 
esac 

ca^ ('PaOCHAMES* , »PN*) 

DEBUG_PfiOCNAHES_BEQD ;= true 

/* PBOCNAHES causes the name of each PROC to be generated as an 

in-line character constant at the start of the PROC for ease of 
locating code in dumps. */ 

esac 

casi (* KOPHOCNAHES* , »NPN») 

DEBUG_PROCHAHES_EE^5D ;= false 
esac 

c ase («LrSTBLOCKS •, »LB') 

DEBUG^LISTBLOCKS^REOD ;= tru e 

/* LISTBLOCKS causes the name, nunber, and depth of each block to be 
generated in an onote at the start and end of the block. */ 

esac 

case (• NOLISTBLOCRS* , *1116*) 

DEBUG_LISTBLOCKS_EEQD false 
esac 

case ('BLOCKCOUKIS* , »BC) 

DEBUG_BLOCKCOUMTS_REQD := true 

/* BLOCKCOUNTS causes counters tc be kept on the number of executions 
of ail blocks- */ 

e sac 

c ase {'NOBLOCKCCDNTS*, *NBC*) 

DEaU6_BL0CKC0DHIS,^REQD ;= false 
e sac 

c ase (»PROCCOUHTS*, *PC») 

^DEBUG_PROCCOONTS_REQD ;= tru e 

/* PROCCOUNIS causes counters to be kept on the number of executions 
of all PflOC blocks- */ 

esac 

case (*H0Pa0CC0UMlS* , ‘NPC) 

DEDUG^PHOCCOUHTS^REQD := false 
esac 
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612U4. 

81245- 

81246- 

81247- 

€1240- 

£1249- 

01250. 

81251. 

81252, 

81253. 

81254. 

81^55- 

£1256, 

81257- 

£1258- 

61259. 

81260. 

61261. 

01262. 

61263. 

61264. 

61265. 

81266. 

81267. 

81268, 

61269, 

81270, 

81271, 

81272. 

81273. 

81274. 

81275. 

81276. 

81277. 

01278. 

61279. 

61280. 

61281. 


case (’PBOCTflACE* , *PT») 

DEBUG_PBOCTKACE_REQD true 

/♦ pflOCTRACi causes a trace vector to be generated and instructions to 
move tbe hex PflOC number into the vector to show the order of Pfloc 
calls. V 

esac 

c ase ('NOPEOCTBACE* e »8PT*) 

DEBUG_PBOCTRACB_BEQD ;= false 
esac 

c ase (*C0RPVAL0ES\ *CV») 

DEBIIG_CORPVALOES_BBCD ;= true 

/♦ CORPVaLUES causes the value of the registers at COBP time (before 
restoring those saved at PfiOC entry) to be stored into an area for 
reference. V 

esac 

c ase (*NOCOHPVAUJES», *BCVM 

DEBUG_COBPVALOES_REQD := false 
esac 

case ('SAVETRACE* , 'ST*) 

/♦ SAVETBACE causes all save areas for non-OS register saving to he 
linked into a static chain from the 0$ save area to provide 
formatting in the save area trace portion of ABEND/SNAP dumps. */ 
SAVETRACE_VALUE := true 
SAVEIBACE^CHECK := ^ue 

Note that savetrace has been specified. ♦/ 

e sac 

c ase (* NOSAVETBACr , 'KST') 

SAVETRACE_VALUE false 

SAVETEAC£_CHECK := ^ue 
esac 

c ase {'ALL', 'NONE') 

DEB8G_BL0CKNAn£S_fiEQD, DEBUG^PROCN AMES^REQD , DEBUG_LISTBL0CKS_REQD , 

DEBUG BL0CKCOUNTS_REQD, DEBUG_PROCCOONTS_REQD, DEBUG_PBOCTFACE_REQD, 
debug’corpvalues REQD, SAVETRACE^VALOE 
;= (DEBUG (IJ^= 'ALL') 

/* Set (or reset) all main debug switches. */ 

SAVETEACE^CHECK true 


81283- 

61264. 

81285. 

81286. 

61287. 

81208, 

61289. 

B1290. 

81291. 

81292- 

81293. 

81294, 

61295, 

81296, 

81297. 

€1298. 

£1299. 

61300. 

81301. 

81302- 

81303. 

£1304, 

81305. 

£1306, 

61307, 

£1308. 


/♦ The following operands are provided for the debugging of the 

structured macros themselves. They are not automatically restored 
at COfiP time. ♦/ 
c§se ('MACRONAMES', 'MN') 

DEdUG^MACRONAHES.REQD := tru e 

/* NACRONAMES causes the name of each structured macro (including inner 
macros) to be printed in an mnote whenever evoked. */ 

e sac 

case (• NOMACROKAMES' , 'KMN') 

DBBUG_HACROWAMES_REQD false 

e sac 

case ('DEBUGMACBOS' , 'DM') 

DEBUG_DEBUGMACBCS REQD true 

/4 DEBUGBACBoi causes various intermediate values within the macros 
to be printed In nnotes for use in debugging the macros. */ 

ca^ ('HODEBUGMACROS' , *NDH') 

^'^DEBUG_DEbUGMACRCS_fiEQD : = faj^e 
e sac 

case misc 

mnote (8, 'STRC8104 DEBUG=' i) DEBUG (I) |i ' INVALID — IGNORED') 
esac 
es acod 

I I + 1 /♦ Go on to next suboperand. */ 
od /’*' {Termination: I is incremented, N* DEBUG is fixed in loop; 

I must eventually exceed N' DEBUG.) */ 
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81310. 

81311. 

€1312. 

81313. 

ai3ia. 

€1315. 

81316. 

81317. 

61318. 

81319. 

B1320. 

B1321. 

81322. 

81323- 

61324. 

81325, 

61326, 

€1327. 

€1328. 

61329. 

81330. 

81331. 

81332. 

61333. 

61334. 

61335, 

81336. 

81337. 

61338. 

61339. 

81340. 

81341- 


if SAVETRACB_CHECK 
then 

if SA VETH&CE_?ALUE 
then ^ 

FlfiST^PBOC 

then 

if OS_iIKKAGB 

SAYETEACE_0N_PIB$T PROC := trae 
OBBIIG_SAVETBlCE_flEQD := t^aS 

S£ot^ (4, *STfiCBl03 HASHING — SAVETSACB BEQUIRES ”fIHAL« flACRO*) 
else 

onote (8, •STBC8106 SAVETRACE REQUIRES FIRST PROC TO BE LINKAGE-OS') 
fi 

else /♦ Not first PHOC- */ 
if SAYETBACE_CS_PiaST_PfiOC 

theq /+ SAVETRACE is being resulted. ♦/ 

DEBUG_SAV£TEACE_HEQD := true 
else 

nnote (8, 'STSC8105 SAVETRACE HOST BE SPECIFIED ON FIRST PROC'} 

fi 

fi 

else 

DBBUG_SAVETRAC£_fiEQD ;= false 


if GLOBAL 
then 

PEEVIOUS_DEBUG_VECTCH := 

/* Null value suppresses restore by CORP. ♦/ 

u 

c orp 


• 0«0*0*0«0*0«0*0*0* 0»0«0*0»0»090*0« 0*0 *0*0 •0*0« 0*0*0 •a«0«0»0«0*0«0*0*0*0«0«0«0«0«0»0«Q*0«0«0*0«0«0« 
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31343. 
81 344, 
81345. 
8134G. 
81347. 
61343, 
81349. 
8 1350. 
81351. 
B1352. 
B1353, 
B1354- 

B1356. 

B1357. 

81358, 

81359. 

81 360. 

81361. 

B1362. 

31 363. 

81364. 

81365. 

81366. 

81367, 

81368. 

B1369. 

81370. 

81371, 

61372. 

61373. 

81374. 

01375. 

B1376. 

B1377. 

81373. 

81379. 

81380, 

81361. 

81382. 

81383. 

81384, 

81385, 

91306. 

81387. 

81388 

B1389. 

81390. 

B1391 . 

81 392. 

81393. 

81394. 

81395. 

B1396. 

81397. 

81398. 

81399. 

81400. 

81401 . 

81402. 

81403. 

81404. 

81405. 

81406. 

81407. 

81408. 

01409. 

01410. 

81411. 

81412. 

81413. 

81414. 
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orgc PSOC 

/♦ a ”C3BCT'’ aud "USING *,15" if J.TNK AGE= (• •• , CSECT) 

specified. If LlilK AGB= (OS, •• •) specified, generate inline ID 
similar to 131 3AV3 maaro; for non-OS linkage, do the same if 
DF,B’J3_3 ’iOJli Ail or ID= specified, bat omit ID- length-count field. 
Heturn in/ ianel generated as branch target in LABEL. ♦/ 

char 

SECT, /* BSyc name (or ‘'5PRIVATE") for default ID constant. V 
QUOTE, /♦ or null, for generating id. ♦/ 

TA3GET? /* Temporary, */ 

int 

LENGrH /* ^.ength of character identifier. */ 

if LINKAGE (2) - • CSECT * 
then 

“generate (LAUEL || * CSECT’) 

LABEL 7= * • 

generate (* USING *,15M 

tL 

if ({OS LTNKaGS or id # •') and ID * *N0ME») or 
Did J G_? a OC H A :i S3 _ R EQD 

t hen 

TA3GBT 3L0CK_LABEL_?aEFIX H * AA * 
generate (LABEL | | * 3 * II TARGET) 

/* Branch around in-line ID. 

LABEL := lARGEr 

if ID = •» or - or = •N)NE» 

then /* No lD ^ds specified on PROC macro. */ 

“if 0>3l_Huafi = *' 

t he n 

if OS^LINKAGE 
c hen 

“sect •3PRIVATE' /* Default name if none specified. */ 

SEC? := 8LOC:<_NA«E(CUaREaT_NEST_LEVEL) 

tk 

LiSNlTil B 
else 

SECT := U3ER_NAME 
LESJTrl ;= K»aSER_NArtE 
fi 

if“0S_l.lMKAG3 

then /* Generate SAVE-type ID, ♦/ 

LiK JTd ;= ((LS33TH/2) *2) + 1 /* Round up to odd number, */ 
qjaerabe (’ DC AL1(* || LENGTH || M .CL* M LENGTH || 

•'* « I I SECT \ \ 

®lse /* Geuerate PROC-name constant only. */ 

LEU3T1 := ((LENGTH + 1)/2)*2 /* Sound up to even number, */ 
generate (♦ DC CL* | | LENGTH ll (j SECT || «*") 

f i 

el^ 7 * ID- specified. */ 

QUOTE : = '•*" 

LENGl’d 0 
if ID[1^U = 

t h 3 n /* ID already contains surrounding quotes. */ 

QUO IE : = • * 

LENGTH ;= -2 /* Subtract 2 for the quotes. */ 

fi 

if OS^LINSAGE 
"then 

LENGTH := ({K* ID/2) *2) 1 + LENGTH 

/♦ Hound up to odd number. */ 

ganera te {* DC AL1 (» || LENGTH || *),CL* || LENGTH || 

QJOTB II ID II QUOTE) 

else 

LENGTH J= ((K*ID + 1)/2)*2 ♦ LENGTH 
/* Round up to even number. ♦/ 

geior^te (* DC CL* ]| LENGTH || QUOTE || ID (| QUOTE) 

fi 
fi 

tk 

corp 


■ 0»0*0*0*0«0«0* 0*0*0 *0*0 *0*0 »0*0*0 *0*0*0*0*0"0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0 *0*0*0*0* 0*0 *0* 0*0*0* o* 
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81416. aroc PBOC_R23_SAV:2 

/* If'sA72=.10Hc: aad doing 5AVETRACE generate store of all registers, 
61418. If s.i7S = :iOS2 and no SAl^ETSACE, do nothing. For other than 

61419. SAVE=NOME# extract from SA72= oaaraads register list to be saved, 

61^20. Daciia tyt>e and size of save area and put into SAVE^TIPE and 

*1^21, SA VB_I,3J15Til, Generate instruction to store registers. ♦/ 

"1422, int I /+ Temporary, */ 


91424. 
81425. 
81426. 
81427, 
61428. 
8142?. 
81430. 
81431 . 
8 1432, 
81433. 
81434. 
81435, 
81436. 
61437. 
31438. 
81439. 
61440. 
81441. 
81442. 
81443. 
81444. 
81445. 
81446. 
81447. 
8144 8, 
61449, 
81450. 
81451. 
81452. 
81453- 
81454. 
81455. 
81456, 
61457. 
01458, 
B1459. 
81460. 
81461. 
81462, 
61463. 
81464. 
81465. 
81466. 
81467. 
81468. 
81469. 
91470. 
81471. 
81472, 
81473. 
61474, 
81475. 


FIRST, LAST ;= ' • 

OFFSET, SAF, Sa:., OFF3ET_TO_GPSO := 0 

/* Initiilize save request information variables. */ 
if SAVE = 
theii 

if O38UG_Si73rRAC2_R2g0 
tbea 

SA?S_xy?E := »FULL» 

SAVE^LjJHGTH 13 

iiABilL Jj » STM 14,12,' iJ BLOCK LABEL PREFIX || »SVf12M 

LABEL ;= *• _ ^ i 

fi 

C^ll PROC_S2r_SA V3_IMF0 

Coliact following save request information. Put character string 
aaie of first register to be saved in FIRST, last in LAST, into 

-lOLT, and »,» into COMMA-2; if only a single register to be saved, 

LAS 2, MULT, and COMMA 2 get null strings. Register number which could 
go into first word of register part of save area goes into SAF, last 
into 5AL. {These, for example, could be 14 and 12 while FIRST and 
LAST are symbolic register designations of unknown value at macro 
expansion tine.) Set FIRST_VALUE known if FIRST is not symbolic. */ 
c^l PROC_3SCIDE_SA7E_TyPS 

/♦ Pit type of save area to be generated into SAVE_TYPE, Set 

3AV3_LBNGTH with length {in words) of save area (except only length 
of register part for non-OS_LINKAGE areas). Offset in save area 
(in words) of register 0 is put into OFFSET T0_GPR0. Offset of 
aitaer FIRST (if FIRST_VALUE_KNOtf N) or else”of register 8 is 
put into OFFSET. Also set LOCAL_POTNTEB to *» and OS_POIPTES to 
♦{13)» if OS_LINKA5E, else LOCAL_POI NTER to 
{3L3CK_LA3EL_PREFIX i| *SV+») and 05 POINTER to * * . Thus 
L0CAL_P0IMTBR || OFFSET 1| »*4* ]) OS^POINTBR refers ^to the given 
offset in the proper area. */ 
if SAVS_rif?3 = »P3LL» 
then 

3S[l«£a^ (LAS2L II ♦ STM 14,12,< || BL0CK_LABEL_PFEFIX M 'SV-M2*) 

/* Save ail registers on FULL (savetrace-reguired) save area. */ 

if ^IRS P_VALUB_KNOWK 
th^n 

r : = OFFSET *4 /* Calculate offset in bytes. */ 

II MOLT II ‘ *11 FIRST |{ P,» II 

L0CAL_P0IMTER if I | | OS_POINTER) 

I i MULT i I » 'll FIRST H * , ' | | 

LOCAL_POIHTER || * (’ IJ FIRST || *+' || OFFSET J| 
• +2)/16*16) ) ♦a* II OS^POINTER) 


iterate (LABEL i ) » ST* 
LAST I I C0MMA2 | J 

else 

(LABEL |J * ST* 
LAST I I COMM A 2 | 1 
*- ((* II FIRST I I 

fi 

fi 

LABEL := •» 

fi 


•0^0^0^0^0^0^0‘O^O^O^O^O^J^O *0«0*0 #0*0«0>0«Q*0*0«0' 


■o *0*0 •O^OVO^O *0*0 •0*0*0«0*0*0*0v0*0*0*0«0 >0*0*0* 
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£roc PROC^SET_5AVB,ISFO 

8lil78- /* Collect foilowlDg save request Inforfiation. Put character string 

61479, name of first register to be saved in FIRST, last in LAST, ’ M ' into 

81480, ailLT, and •,< into COMMA2; if only a single register to be saved, 

81481. LAST, MJLT, and C0MMA2 get null strings. Register number which could 

81402. go Into first word of register part of save area goes into SAF, last 

61403. into SAL. (These, for example, could be 14 and 12 while FIRST and 

01484, LAST are symbolic register designations of unknown value at macro 

81485* expaosxon time.) Set FIRST^VALUB^KNOHN if FIRST is not symbolic. ♦/ 


61487, 
81488, 
81489. 
81490, 
81491. 
R1492. 
81493. 
81494. 
81495. 
81496. 
01497. 
81498. 
81499. 
81500. 
81501. 
8 150 2. 
81503. 
81504. 
81505. 
81506. 
81507. 
81508. 
81509. 
81510. 
81511. 
81512. 
81513. 
81514, 
81515. 
81516. 
8 1517. 
81518. 
81519. 
01520. 
61521. 
81522. 
81523. 
61524. 
81525. 
81526. 
B1527. 
8152B. 


PIflST_VAL0E_Ka04N j= true 
MULT := 

C0MMA2 ;= »,* 

/♦ Assumed values. */ 

if T*3AVB(1> - *0* /* At least first suboperand is omitted. ♦/ 

FIRST ;= M4' SAP 14 

LAST := *12* SAL 12 

/♦ Djfaiit is to save all registers 14 through 12. ♦/ 

If T*SAV3(1> = /* Self-defining term. ♦/ 

then 

SAF 3AVB(1> /* Store it as a number. ♦/ 

FIRST ;= SAP 

/* Convert it back to a string (done for non-decimal 
self-defining terms) . ♦/ 
else /♦ It mast be symbolic. */ 

FIRST ;= SAVE(1) /* Store it as a character string. ♦/ 

SAP := 14 /* Just say first of save area is register 14. V 

FIRSr_irALJ3^KN0iJN ;= false 
f i 

if T*5A73(2) = '0* /* Secoad suboperand is omitted. ♦/ 
t^en 

LAST, a ILI, C0MMA2 ;= * ' 
ii FIRS r,VALJ3_KNOSH 

then 

SAL SAF /* Last register is same as first, */ 

else 

SAL ;= 12 /* Last register is 12- */ 

fi 

else 

if T'saV 3{2) = *N» /♦ Self^defined. */ 

*’th§a 

SAL := 3AVE(2) /* Store it as a number, V 
LAS C SAL /* Convert it back to a string, */ 
else 

LAST SA?9(2) /* Store it as a character string. */ 

SAL ;= 12 /* Just say last of save area is register 12. */ 

fi 

fi 

li 

corp 


• 0 « 0 * 0 « 3 * 0 » 0 * 3 » 0 * 0 « 0 * 0 * 0 * 0 * 0 * 0 * 0 * 0 * 0 * 0 * 0 * 0 * 0 * 0 » 0 * 0 * 0 * 0 « 0 * 0 * 0 * 0 * 0 « 0*0 


• 0*0* o«o«o«o«o*o*o*o«o*o*o*o*o* 


C-79 



PROC" Macro 


5 July 1973 


81530, 

01531. 

81532. 

81533. 

8153^1. 

81535. 

81536. 

81537. 

61533. 

81539. 

81540, 


£roc PROC^DEClD8^3A?i3^TypB 

/* Set 5A7£_rYP5 4ith type of save area to be generated: HONE, OS5AVE, 

rHONC, rROKC.HDB, NOiinL, HORMLHDR, or PULL. Set SAVE^LEHGTH with 
length (ia words) of save area (except only length of register part 
for aoa- 03 _LIflKAG£ areas) . Offset in save area (in words) of either 
PIfiSI? (if PI ttST_VALUS_KNOUH) or else of register 0 is put into OFFSET; 
the Latter always is stored into or?SET_TO_GPRO for CORP»s reference. 
Also set LOCAL_POIKT2R to ** and OS POINTER to M13) * if OS LINKAGE, 
else LOCAL POINTER to (BLOCK_LABEL_PREFIX || 'SV*') and 0S_P0INTER to 

* » , */ 

int I /* Temporary. */ 


81542. 

81543. 

81544. 

81545. 

81546. 

81547- 

81540. 

81549. 

81550. 

81551. 

81552. 

81553. 

B1554. 

81555. 

61566. 

81557. 

81558. 

81559. 

81560. 

81561. 

81562. 

81563. 

81564. 

81565. 

81566. 

61567. 

81568. 

81569. 

B1570. 

B1571. 

81572. 

81573. 

81574. 

81575. 

81576. 

81577. 

81578. 

81579. 

B1580. 

81581. 

815B2. 

815B3. 

81584. 

81585. 

81586. 

81587. 

81588. 

81589, 

81590, 

81591, 

81592, 

01593. 

81594. 

81595. 

81596. 

81697. 

81598. 

81599. 

81600. 

81601. 

81602. 

81603. 

81604. 

81605- 

81606. 

81607- 

81603. 

81609. 


if OS^LIHKAGJ 
thea 

OS.POINTia »(13)* 

L0CAL_P0IIfrJH := 
if SAVE (3) - * NOHB» 

SA7S_TY?E := 'NONE* 
else 

'SA?3_r7?E := »0SSA7E» /♦ Standard OS save area. ♦/ 
oppslr^ro^spao , offset 5 /♦ put offset to teg 0 in both. */ 
if SAVE (4) = * » 
tHia 

SA7 3_LSNGTH := M8* /* star.viard OS save area is 18 words. ♦/ 
else 

3A72_LSN3TR := SAVB(4) /♦ Length specified, V 

ik 

tk 

else 7 * Not 03_LINKAGE. V 
OS^POINTSa := • • 

LOCAL_POINrSR BLOCK_LABEL_PREFIX || < SV+» 
if BSBlTG^Sa7ETRAC5_REQD 
thea 

SAVS^TYPE := *PULL* /* Full 18 word pseudo-OS save area. ♦/ 
SA7E_L3'UT3 := *15» 

/* Length of register part of full save area is 15 words. */ 
0FF52r_ tO_GPH0, OFFSET := 5 
else 

SAL - ( (5AL + 2)/16*16) - SA? + ( (SAF+2) /16* 16) + 1 
SA7I5^L33Gra := I 

/* Convert calculated length to charter string. */ 
if SAP ^ 14 

/* 3AV2(1) was omitted, specified as 14, or symbolic. */ 
if D£BUG_PROCCOJMTS_SEQD 

tn^ /♦ Header included for count. ♦/ 

3A7E_TYPE ;= 'NORMLHDR* /* First register word is 14. */ 
QFi?5Er_TO_GPR0, OFFSET := 3 
else 

3AVE_rYPE := »M0R«L* 

07FSEr_T0_9?B0, OFFSET ;= 2 

kk 

§l3e Save area is to start after 14: a truncated area, */ 

if DfiBJG_?ROCCOUHTS_RSQI> 

t len /♦ header included for count. */ 

SAVS_TyPE ♦TBUNCHBR* 

OFFSEI := 1 /* To SAVE(1). */ 
else 

^SAVE^TYPE 'TRUNC» 

OFFSET ;= 0 To SAVE(1). */ 

lFF33f,rO GPRO := OFFSET - SAP 
if SAP > 13 

DP?3 5r,TO_G?a0 OFFSET_TO_GPR0 + 16 

£1 

fi 

fi 

kk 

if PI aST^V AL JE^ IrfOa N /* SAVE(1) was not symbolic ♦/ a fid 
SAVE^TY PEl 1, 5] # 'TRUNC» 

then 

/♦ Adjjic OFFSET from giving offset to GPRO to give offset to SAF, ♦/ 
OFFSET ;= QFFSBT TO GP3) ♦ SAF 
if SAF >13 
then 

OFFSET := 9FF5EP - 16 

fi 

fi 


o«o«o«o#o*o*o*D^o«o«a»o«a«o*o*o*o*o*o«o*o*o*o«o"o»o*o*o*o*o«o«o»o«o»o*o*o*o*o*o«o*o*o*o^o*o*o«o»o» 
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61611. 

81612- 

81613- 

31614. 

61615. 

81616, 

31617. 

81616. 

61619, 


proc PROC ESTABLISH _8A3S • > 

^ /* set u? register and issue USIUG wnere required. V 

IIfLiNB_5l7j3itliA /* Inlicates whether an inline save area is to 
be jenerated. ♦/ 

BASEHEG /* Haflie of r'5'jister loaded with base value. ♦/ 

int 

j raiporaries. */ 
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81621. 
81622. 
81623. 
81624. 
81625. 
01626. 
81627. 
81628, 
81629. 
B1630. 
B1631, 
81632. 
81633. 
81634 . 
81636. 
81636. 
81637. 
61638. 
81639. 
81640. 
81641. 
81642. 
81643. 
81644, 
8 1645. 
81646. 
81647. 
8164S. 
81649. 
81650. 
61651. 
81652. 
81653. 
81654. 
81655- 
81656, 
81657. 
81658. 
81659. 
B1660, 
B1661. 
81662, 
81663. 
81664, 
81655, 
81666. 
81667. 
81668. 
81669. 
81670- 
81671. 
81672. 
81673. 
•B1674. 
81675. 
81676. 
81677, 
61678. 
81679. 
81630, 
81681. 

6 1682. 
81633. 
81684. 
81685. 
81686, 
81687. 
81688. 
81689. 
81690. 
81691 . 
81692. 
81693. 
81694. 
81695. 
81696. 
81697. 


if BASE * and (QS_LX>fKAGE or BASE 

tlieu /* Generate a base register. */ 

8AS3REG BASE (1) 

If(LIS5_5AVSAdEa := (SAVX * ♦NOWS' and SAVE(3) = ' •) 
if flA3E3SG - M3* and (I MLINB_SA7EAHEA and OS^LINKAGE) 
t heg 

aaoti (3, »STRC3109 REGISTER 13 INVALID — IGNORED*) 

BASSIE9 := *» 
fi 

if 8ASE33G = * * 

taea /♦ *1 a base register specified. */ 
if I:ILI75_5AVEARSA and OS^LINKAGE 
th^ ^ 

3A53fiEG ;= WOHK3EG 

/♦ ie »fill load the base value first into the work register, then 
copy the value to register 13 after ve finish all linkage. ♦/ 

J3I IG13 ;= ;^ue 

if fOaX - *N0N3» and WORKREG_0SED 
t len 

^aerate (LA3EL || * LR 0,* J| WOEKREG) 

LAdSL := ♦♦ 
f i 

-OHXREG^OSED := true 
else 

BASEREG i- *12* 

£i 

fi 

J 0 

I 2 

while I < N»dASE 
do 

if BAS 3 (I) = M3* 
then 

(3, »STflG9l09 REGISTER 13 IGNORED*) 

else 

i^irate (LABEL M ♦ L * || BASE(I) |j *,♦ || 

BLOCK_LABEL_PREFtX j| *nBR+* I J) 

LA3 3L := * » 

ii 

I := I ♦ 1 
J := J ♦ 4 

od /* {Teraiaa tioa: I is incremented in loop, N* BASE is fixed; 

I just eventually exceed N*BASE.} ♦/ 
if INLINE_SAVEAR24 
then 

'if OS^LINKAGE 

tlisi 

ISaara^ {' C»OP 0,4 *j 

/* Advance to fullword boundary: outstanding label can wait for next 

instruction, */ 
f i 

TARGET ; = BL0CK_LA9EL_PFEFTX || *BB» 

gen^^a (LABEL j| ♦ BAL * || BASEREG J1 *,* }| TARGET) 

LABEL := TARGET 

ho inline save area, */ 

agngcat a (LABEL || * BALR • || BASEREG I I *,0») 

LABEL ' 

fi 

if - 7SIJG1 3 

agagE^ta (» USING ♦,* II BASEREG) 

£i 

if M'BASS > 1 
then 

isnasate (block,la33l_prepix ji *mbp eou 

aULTiBASB true 
J := 40 96 
I := 2 

while I < N*BASE 

(• USING *+• I I J I I »,* 1 I BASE(T)) 

J ; - J + 4096 

od /♦ (Termination: Sane proof as above. 1 ♦/ 

fi 

£i 

corp 


'O*o«o«a»o*o«o*o« o*o»o*o«o»o »o»o«o*o«o' 


o*o*o*o*o*o«o-o«o*o-o*o*o*o^o*o*o-o«o*o*o»o»o*o*o«o*o*o*o*o* 
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81699- 

B1700. 

B17Q1* 


firoc PHOC^GBN^SAVEA AEi 

/♦ Geaerat <3 ap^^ropriata save area according to SAVE^tyPE, 
aad tne SAVE suboperands, */ 


?ftVE_LEKGTH, 


81703. 

81704, 

81705. 

81706. 

81707, 

81708, 

81709. 

81710. 

81711. 

01712- 

81713. 

81714. 

81715, 

81716. 

81717, 

01718. 


if SA7E_TYPE = ■OSSAV2» 
t hen 

call PROC 52N_0SSAV3_Aa3A , . , 

^/+ Generate 05 save area and chain it up following OS linkage 

conventions. Also link up static chain of local save areas if 
this is tiie first proc and SAVETRACE reguested. */ 


el§e 

if (SAVE ^ 'MO«g* Mi 3AVG_TYPE 'NONE*) or 
i>EB JG_SAV3TRACE_REQD 


then 

^call Pi3C_GE»_L0CAL_SAVEAREA 

^ Generate local PROC save area 
aal, if SAV3THACE requested. 


according to SAVE^TYPF and SAVE_LENGTH 
provide static save area chaining. */ 


fi 

fi 


core 


•o»o*o*o«o»o*o*o*ovo*o*o«o*o •o»o*o*o*o«o*o»o*o«o*ovo*o«o' 


0*0*0 VO •0*0 *0*0 *O*0* 0*0 *0*0 *0*0 *0*0 *0*0* o* 
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81720, 

81721, 

81722, 

81723. 

81725, 
81726, 
81727, 
81729. 
81729, 
B1730, 
81731, 
81732, 
81733, 
8173i|. 
81735, 
81736, 
81737. 
81738. 
81739, 
8171*0, 
B1741 , 
81742, 
81743. 
81744. 
81745. 
81746. 
81747. 
81748. 
81749. 
81750, 
81751, 
81752, 
81753, 
81754, 
81755, 
81756. 
81757. 


£roc PHOC_GEN_OSSAVE_AiiaA 

/♦ Genente OS save ar*a and chain it up following OS linkage 

con V3nt ions. Also link up static chain of local save areas if 

SAVETHA^E requested. 

call PHOC_DE?rH3_JBW^OSSAV5 

/* Generate inline, out'Of-line, ol dynanic save area and point to 
it witn BASER3G or «ORKREG; put register name in SAVERFG. */ 
if DBB0G_5AV3TRAC£_RS2D PIRST_PR0C 

/♦ Static cnain of local save areas must be linked to OS save areas. ♦/ 
generate (lAflEL || » Sf 1 3, SPIHSTSV+-4 •) 

LABEL := ♦' 

3Sa§£ate (» MVC 8 (4, 1 3) , = A (SFIRSTSV) * ) 

aeassaie (» L ' 13^ = A (SLASTSAV) ») 

PREV^SAVSTR ACE^PTR 1- ' fPIRSTSV’ 

PflEV^SAVlTRACElAREA '0* 

f i 

aener^e (LABEL |i * ST ' || SAVEREG M »,8(13)'J 
LAREL 

3 SIi§tate (• ST 13,4 (» || SAVEREG || *)') 

aenerate {• LR 13,* |f SAVEREG) 

if USING13 

thea 13 now loaded — issue USING. */ 

asasEate (» using » n block_label_prbfix ii *isv,i3*) 

li 

if DHBOG_PROCrRACB_H£aD and FIRST PROC aM SAVE (3) # *» 

iiiss 

/♦ Stas .1 pointer to PROC trace vector in word 1 of 05 save area. */ 
if *i02K - * JONS' and -• WORKRBG_USBD 


ainecate (* 
f i 


LR 

0, WORNREG*) 

I 

generate (* 

LA 

’ II 

yORKREG 

n 

' ,strace*> 

genet e ( » 
W0RKR3G J3E0 :* 

ST 

tSliS 

* n 

WORKREG 

N ' 

',0(13) *) 


a 


•0*0 *0*0*0*0*0*0*0*0*0*0*0*0*0v040*0*0*0*0*0*0 *0 *0^0 *0*0 *o*o*o*o *o 0*0* 0*0 


• 0*0 *0*0* 0*0 *0*0 *o*o* o* 
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81759. 

B176D, 

81761. 

81762. 

81763. 


2rgc P30C_D£riNE_»£: I^OiSAVE 

/* Generate iaiine, out-of-line, or -lynaiDtc save area for 

OS^LISKAGii aai point to it with the j?OFKHEG or QASEREG. Put name of 
pointiuj r^igrster in SAVSREG. */ 
char X /* leaporary. ♦/ 


81765, 
81765. 
81767. 
81768, 
81769. 
81770. 
81771. 
81772. 
81773. 
81774. 
81775. 
81776. 
81777, 
81778, 
81779, 
81780. 
81781 . 
81782. 
61783. 
81794. 
61785. 
61786. 
81737. 
817S3. 
817B9. 
81790. 
81791. 
81792, 
81793. 
81794. 
61795. 
81796. 
81797. 
81793. 
81799. 
81300. 
81301 . 
81302. 
81603. 
61004. 
81805. 
81806. 
81807. 
81808. 
81809. 
81810. 
81811 . 
81812. 
81813, 
81614. 
81815. 
81016. 
81817. 
01818. 
01B19- 
81620. 
61821. 
81822. 
81823. 
81824. 
81025. 
81826. 
81827. 
81823. 
81629. 
81830. 
01831. 


X :- • » 

5AVEHEG MJ3.<2gG /♦ Assumed. */ 
if SAVE (3) = 

then 

generate (LABEL ll • LA 0,(^ U 3AVE_LENGTH H *)*4»J 
LABEL ;= ** 
if '<I0RK ^ •SOME' 
then 

"generate (• LR • || WORKREG || ’,1’) 


£i 

gen era te ( • 
generate ( • 
generate (• 
if ;^0RK = • :Ud£' 


GETrtAIN tt,LV=(0)*) 

LH 0,* (I MOKKBEG) 

LH 'll MORK3EG j| «,1M 


then 

qenerat e (* L 

if’’Fia3T # *14» or LAST 

anote (4, 'SrRC8107 


1, 24(13)’) 
t »12» 

REG 1 MUST BE AMONG TUOSE SAVED 


tk 


qenerat a (» LR 1,0*) 


) 


M03KBEG_J3E0 1- 
e lse 

if SAVE (3) - ' • 

thea /* save area. */ 

"£f LABEL - * ' 
then 

if iJORK - 'NONS’ and -• 40RKREG_USED 
then 

genera te (* LR 0, • |1 MOBKREG) 

Lk 

ijORXREG USE9 := tru e 
jgg^rat e (• CROP 0,4') 

LAJIL := 3L0CK_LAB3L PREFIX H ’ CC* 

■lea 3 rat e (• BAL • |I M0RKRE5 || |1 LABEL) 

else' 

1 3L0CK_LA8SL_PREPtX || •ISV 
if ^ JSING13 
then 

SAVEREG := BASERSG 


f i 

tk 

if D33J J_PROCPRACE_REQD and FIR5T_PSOC 
thefl 

aenei^te (X | | • DC A($rRACE),(* l| SAVE^LEHGTH |( "-1)P*0»'’) 

"/* Generate inline save area with Hrst word pointing to trace 
vector. ♦/ 

else 

^SaiEate (X n * DC (* n SAVE_LEKGTB II ••)F*0»") 

f i 

call P10C_BULflBASE_GEN 

/♦ Insert multiple base adcons after save area. */ 
else /<* Jsec-supplied out-of-line save area. ♦/ 

If M03K = •NONE* and -< WORKREG^OSED 
then 

"Jenerate (LABEL || • LR 0,’ || MOBKREG) 

LAJEL • ' 
fi 

WORKRS3 USED 2 - triJ3 

generat e (LABEL || ~ LA * |l WORKREG j| •,* || SAVE (3) ) 

LABEL ; = • • 


fi 

f i 

/* Area Has seen generated and address is in SAVEREG register. */ 


cor^ 


• o * 0 * 0 * 0 0*0*0 *0*0 • 0 * 0 *Q* 0 * 0 * 0 * 0 * 0*0 * 0 * 0 * 0 * 0 * 0 * 0 * 0 * 0 * 0 * 0 * 0 * 0 * 0 * 0 * 0 * 0 * 0 * 0 * 0 * 0 * 0 * o*o*o*o*o* 
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31833. 2COC PR0C_3SN_L0CAL^5AVBAR2i 

61834. /* Generate local P50C save area according to SAVE_TYPE and SAVE^LBNGTH 
81835. and, if oAVSlHACB requested, provide static save area chaining. */ 
81836. FWD^PTR /♦ aane used for next save area. ♦/ 


81838. 

81839. 

81840, 

B1841. 

81842. 

81843. 

B1844. 

81845. 

81846. 

81847. 

81843. 

81849. 

B1850. 

B1851. 

B1852. 

R1853, 

8U54. 

81855.. 

81856. 

81857. 

81853. 

81859. 

61860. 

8-1861. 

81862. 

81863. 


if LABEL = »» 
then 

LABEL 1= 3L3CK LABEL PREFIX || *00* 
gen era te (» B » M LABEL) 

fi 

liberate (DLOCi{_LA8EL_PaBFri U ' SV DS 0?*) 
if SAVE_TYPE »fULL» or S A7£_T YPE[ 6 , 3 ] = »HDR* 

then /♦ Word one should contain PROC count and ID byte. */ 
aMi£.4te (" DC X’FF” II PR0C_ID_BYTE || *'0000*'* || 

* FLAG (FB= ENTERED, FF=?INISHED) , ID, COUNT*) 
fi 

if SAVE^TYPS - *FULL* 

**then 

PWD^PTR := JLOCK^LABEL^PREPIX |1 *NXT» 

(PldY sIvETRACE PTH i| * EQU * || 

3L0 :k_LABEL_PRE?TX M *SV») 

generate (» DC A(* |1 PREV_SAVETRACE_AREA || *,* |J 

F4D_?fH H *) *) 

PRE7_SA7Sra \C3_?ra := 7iD_PTS 

7* Save iaoel used as forward pointer. */ 

PREV_SAV2TR ACii_A«EA := 3L0CK_LA3EL_PREFIX |{ *SV» 

/♦ Save naae of this save area. ♦/ 
fi 

gene rat e {• DC (• J | SAVE_LENGTH |j ”}F*0»") 

cgli PR0C^?inLri3ASE^5SN 
S2£2 


• o*o« o«o*o*o«o«a«o*o*o«o«o*o •o*o*o*o«o*o«o*oao«o«o«o*o*o«o*o*o*o*o*o«o*o*o*o*o*o*o*o*o*o«o*o*o*o*o« 
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81865, firoc PROC_DEaaG_srj?P 

81866* /♦ Generate trace and count code for debugging* */ 

81 867. bit PCT_GEHNED_WITrt_VECTOfi /♦ Indicates whether -PCT labeled halfword 

81868. whica holds PH03 counter was generated following the trace vector. */ 

81369. char COUNT_SPOT Suffix of label for PHOC counter. */ 


81871. 

81872. 

81873. 

81874. 

81875. 

81876. 

81877, 

81878. 

81379. 

81880. 

81881. 

81882, 

81883, 

61884. 

B18B5. 

61336. 

818B7. 

81888. 

81889. 

81890. 

81891, 

81892. 

81893. 

81894. 

81895. 

81896. 

81897. 

81898. 

81899. 

81900. 

81901. 

81902. 

81903. 

81904. 

81905, 

81906. 

81907. 

81908. 

81909. 

81910. 

81911. 

81912. 

81913. 

91914. 

81915. 

81916. 

B1917. 

81918. 

31919. 

81920. 

81921. 

81922. 

81923. 

81924. 

91925. 

81926. 

81927, 

8192B. 

81929. 

81930. 

81.931. 

81932. 

81933. 

81934. 

81935. 

81936. 

B1937. 

81930. 

81939- 

91940. 

81941- 

81942. 

81943. 

81944. 


if DEBOG^PBOCTiiACB^aSQD 
then 

if TRACE_7E:r3a_G2KNEQ 

”then /* Prewioiisly generated TRACE vector must be updated. */ 

If 308K = and tfOBKFEG^USED 

(LABEL II • LR 0, * | I WORKREG) 

LABEL := » ' 
fi 

lenerata (LABEL |(.» L * |J MORKREG j| » ,=A ($TBACE) *) 

oin irat e (• AVC 0 (256,' H MORKHEG || M 

liORKREG II ») ») 

generata {' 1VT 256(* || WOBKREG M N 

“PR0C_ID_BYTS II ) 

»0RKR5G_0SED := true 

else /* Trace vector must be generated. ♦/ 
if LABEL - ' * 

£hea /* Branch around trace vector- */ 

LABEL ;= 3LOCK LABEL_PREFIX || 'EE' 
aSlSSat e { ' B ^ 'll LABEL) 

tk 

generata ('» DC C'$TRACE»”) 

ainsrata (»$TRACB DC 2581' FF*”) 

TRACB_?ICTOa_GENHED ;= true /♦ Only generate it once. */ 
if (3BBa3_PROCCOONT5_R3QD or DEB0G_BLOCKCOUNTS_RE0D) 

FIRST^PROC 

then 

” /♦ P80C counter must be generated since word one of first save area 

points to proc trace vector, so we can't Keep count there. */ 
jana rate (BLOCS_LABEL_PREFIX t| »'PCT DC H'O* PROC COUNT") 
PCr^SENNED^WITrl^VECTOR true 

generate (LABEL || ' MVC STRACB (256) , $TRACE+1 ' ) 

gener^e (” IVI $TRACS+256,x » " || PROC_ID_BYTE || 

tk 

LABEL := " 
fi 

if DEBUG^PROCCO jNrS^RBQD ^ OE8UG_BLOCKCODBTS_REQD 
t^n /* Ne aust update tha count. ♦/ 

if OS LINKA2S or (SAVE = 'NONE' aM ^ DEB0G_S AVETRACE^REQD) 

“then /♦ Count'will be in BLOCK_LA3EL_PRFFIX 1 | 'PCT^. */ 
if - PC T_G £NNSD_M I r:i_VBCTOR 
“than /* Define PCI. */ 

If LABEL - ' • 
then 

gener^^ (» NOP O') 

generate (3LOCK_LABEL_P8E?IX || 'PCT EQU *-2 PROC COUNT*) 

(3L0CK_LABSL_PREFIX |j "PCT DC B*0' PROC COUNT") 

Ik 

tk 

COUNT^SPOT ;= 'PCT* 
eise 

CODNr_3?or ;= 'S7»2* /* Count is in local save area. ♦/ 

ik 

if WORK - 'NONE' and NORKREG_USED 
then 

gen erat e (LABEL || * LR 0,» |l WORKREG) 

LABEL : = " 

ik 

generate [LABEL Jt • LH • || WORKREG || *,* || 

“8L0CK_LAB2L_PRE?rx | | C00NT_SPOT) 

LABEL := " 

gen erate (' LA * || NORKREG || *,1(* || HOHKREG || ')») 

generate (' STH ' J| WORKREG || ',» 11 

3LJCK_LABBL_PREPIX | j COONT_SPOT) 

WORKRBG_U3E3 l- true 
f i 

if “5EBUG_SAV3TRAC3_RSgD OS^LINKAGE 

th en 

genera te (LABEL || * HVI ' || BLOCK^LAEEL_PflEFIX |1 "SV,X*FE'”) 

LABEL := »' dark P30C as entered. */ 

fi 

corp 


• 0*0* 0*0«0* 0«0*D*0*0»0»0*0*0*0*0"0“0»0»3»0*0»0 


*0 »0 *0 •0*0*0 •0*0*0* 0*0 *0*D*0*0*0«0«0*0*0*0«0«0*oa 0*0* 
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819^16. £roc PROC_iaPO_SAVci 

/* Save all iaforuation needed at COBP tioe. */ 

819«8. char I /♦ OPPSSr_TO_GPfiO, biased by 50 aud converted to character 

81949. foriat. */ 


8195U 

81952 . 

81953 . 

61954 . 

61955 . 

81956 . 

81957. 

B1958. 

81959, 

81960. 


0PEHABD1 {CURfiEN r_aBST LEVBI.) := FIRST 
0PERAMD2 (CURHEH E_aEST'LBVBL) ;= LAST 
0PERAND3 (CURSEM P_aSST'LEVBL> ;= SAVE_LEHGTH 
DPERAND4 (CUHaEMr_MEST_LEVBL) := PFEVIOaS_DEBOG VECTOR 
I OFFSET, PO^SPHO *50 

/* Bias value by 50 and convert to tvo-digit character string. */ 
IKPORMATION (CJh 3EST_H EST_LBVSL) : 

I II 0S,LIKKA5E || (SAVE (3) = *0YBAn’) || FIRST VALUE ENOflK |1 
PROC:,Ii)_BTTB 11 SPECIAt,P8EFIX 


•o«o*o*o*o*ci«o*o*o»o*o»o*o*o *o*o«o*o*o*o*o*o»o*ovo*o*o*o«o*o«o»o«o«o«o*o*o«o«o«o«o«o*o*o«o*o»o*o«o* 
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ai%2. 
31963, 
31961*, 
81965. 
81966, 
8 1967, 


jroc PROC^M'JLTlBASi^S^H , 

/♦ This proc iairerates any multiple base register aacons it 

naeded anl not yet generated and notes that such adcons have 
been gaierated. ♦/ 
int I, J /♦ reiiporaries. */ 
char X 


81969. 
61970. 
81971 . 
81972- 
81973. 
81974. 
81975. 
31976. 
81977. 
81978. 
81979. 
81930. 
81981 . 
61982. 
81983. 
81904. 
81985. 
81986. 
81987. 
81986. 
81989. 
81990. 


if MUL7I0AS3 ^ ^ 

Mjltibase adcoDS required but not yet generated. ♦/ 

if LABEL = * ' 

then /♦ Iranch around adcons. */ 

"lABEI, 3 i.OCK_LAB 3 L_P 3 EFIX ]| ♦ FF» 
generate (' B * II LABEL) 

ik ^ 

I ;= 2 
J ;= 4096 

K := BLOCK^LAdSL^PREFIX || * MBR’ 
while I 5 5*BA3E 
do 

ge n e r at j (X ( j * DC A (* j I BL0CK_LABEL_PREFXX | | t I 

J II ') V 

X »* 

I := r + 1 
J J 4096 

od /♦ [Tecmiaation: I is incremented during loop, SYBASE is 

fixed; I must eventually exceed N’BASE.} */ 

MULTIBA53 i~ ^Ise 
fi 

CO£E. 


•Q«0»0*0*0«0*0*0*0*0«0*0*0*0*0*0*0*0*0*0« 


o«o*o •o*o»o*o*o«o«o*o*o •0*0*0*0*0*0*0*0«0*0*0*0«0*0»0 


o«o* 
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83001 . 
83002. 
33003. 
33004. 
83005. 
83006. 
83007. 


Macro COEP (DSga_:iAa2; PROC_»AME, RETURN=, LIHK=14, flESTORE=, BC=) 

DCi-inis the end of a procedure block. The register or registers 
indicated jy REST03S- are restored with the exception of those listed 
in. R3rJ3j(=. If aEsrORS~ is omitted, all saved registers are restored 
(except those in the fl3TlJBN= list) . The return code is set from the 
RC= operiod and return is made to the address specified by the 
LINK= operand, unless LISK=NONF is specified. */ 


83009. 

83010, 


/* [Ground rule; Ho COaP proc modifies CUERENT_HEST_LEVEL. 
This ca 1 be shown via the cross-reference listing.} */ 


83012. 

83013, 

83014. 

83015. 

83016. 

83017. 

83018. 

83019. 

83020, 

83021. 

83022. 

83023. 

83024. 

83025. 

83026. 

83027. 

83028. 

83029. 

83030. 

83031. 

83032. 

83033. 

83034. 

83035. 

83036. 

83037. 

83033, 

83039. 

83040. 

03041. 

83042. 

83043. 

83044. 

83045. 

83046. 

83047. 

83048. 


PIRST^SA VEa IjSA^REG , /♦ Register number which may be placed into the 

first word of the save area. This may be, for example, 14 when 
th3 firJt registar saved is some symbolic of unknown value. ♦/ 
OFF3ET_TO_3»HO /♦ Offset in save area (in words) to the storage 
place cor GPRO. This may be positive or negative. »/ 

AKy_RE9S_SA VEO, /* Indicates whether any registers were saved in 
thii proc- */ 

DYNA.’irc_3AV 3AR£A, Indicates whether SA7E= , DYNAK, •••) 
was coded on P30C, ♦/ 

BCK^aREA^RE 33, /♦ Indicates whether BCK save area is needed. »/ 

prRST_VAh7E_K30JN, /♦ Indicates whether FIRST is other than a 
syunolic. ♦/ 

FIEST^RBsr^ /ALJ2_KH0irf{l, /♦ Indicates whether first register to be 
restored (in R35T1) is other than symbolic. */ 

OS_LIHKA3E /* Indicates whether LINKAGE= (OS, •••) was coded 
on ?HOC, ♦/ 

LABEL, /♦ A ly outstanding label waiting to be generated. */ 
GPR0_0FP3i2T_sr3lNG, /* OPFSFT_TO GPPO in character form. V . 
FIR3r_R33_S WED, LA5T,RSG_3AVED,'‘ 

/* First and last registers saved at PROC tine. ♦/ 
nULT, C03HA2, /* Holds either a ”f!'’ and respectivly or else nulls 
to allow generation of either a «LM" or *'L" instruction. */ 
LOCAL^POIHIER, OS_PDlMr3«, R ESTORE^AREA, 

/* Instruction segments to generate load instructions from proper 
sav e area, */ 

EC_REG, /♦ Register holding return code before restoring of 
registers, */ 

SAVE_^LB513TH , /* Length of save area. ♦/ 

REST1, R^ST3, /♦ First and last register to be restored. */ 

PHOC^ID^aYf 3, /♦ One-byte hex number used as identifier of current 
proc ia traces and the like. V 

PREVIOUS^DS 3 JG_VECT0a /* Value of debug switches (packed) before 

encountering this PROC or [if DEBUG^: GLOBAL) specified! 

null. ♦/ ' r j 


83050. 
03051. 
83052. 
B3053, 
83054. 
83055, 
83056. 
83057. 
83059. 
83059. 
83060. 
03061. 
83052. 
83063. 
83064. 
83065. 
B3066. 
83067. 
83063. 
83069. 
8 3070. 
03071. 
03072. 


call TRAC2_PRINTSR ( ; »COtP<) 

Print macro name in mnote if tracing on. */ 

if CU2EEHT_M3Sr_Li3V2L > NESTING LlfllT 
thgn 

c^ll POP_OL9_BLOCK ( ; ) 

mexit 
f i "" 

call VEHIPI^BKD ( ; »Pfl0C*, PROC_NAi1E) 

/♦ Verifies current block has the name specified in the PROC NAPIE 
operand on the COBP macro (if any) and that it is a PROC block, 
various errors receive messages and either intermediate blocks are 
BLBNDed as a fixup or 2RR0R OCCURRED is set. 

{Lemia: If CURREHP_ME3T_LEVEL > 0 and 

[PaDC_RAME = »» or = BLOCK^NANE (CURREKT NEST LEVEL)! and 
3L0 CK_T¥ PE (CUR REp_NEST_LEVEL) = »PHOC*, then 

ERia£_OCCURRED Will be set false and CURRENT NEST LEVEL will not 
ba aodified.) ♦/ “ “ 

if ERROR^OCC JHR 3D 
bhen 
mex it 

ii 

LABEL USEa_iiAfla 

/♦ Generate ianel at first opportunity. */ 
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83074. 
83075. 
83076. 
83077. 
83078. 
83079. 
83080. 
8 3081. 
83082. 
83083. 
83084. 
B3085. 
83086. 
83087. 
83088. 
83089. 
B3090. 
83091. 
83092. 
83093. 
83094, 
83095. 
83096. 
B3097. 
83098. 
83099, 
03100. 
83101. 
83102. 
83103. 
83104. 
83105. 
83106. 
83107. 
83109. 
03109. 
83110. 
83111 . 
83112. 
83113 . 
83114, 
83115. 
83116. 
83117, 
83118. 
83119. 
83120. 
83121. 
83122. 
33123. 
83124, 
93125, 
83126. 
83127, 
83128. 
83129. 
83130. 
93131. 
83132. 
83133. 
83134. 
83135. 
83136. 
83137. 
83138, 
83139. 
83140. 
83141 . 
R3142. 
83143. 
83144. 
83145. 
83146, 


COap G8T P30C INFO 

V* Get info saved at P19C macro: PIRST REG_SAVED, LAST_fEG_SA V ED, 

OS FIRST_SAVEARBA REG, FlRST_VALOE^K»OWN , DTNA«IC_SA VEAREA , 

SAVE_L2!<GrB, OFFSET ^rO_G PRO, PREVIOOS_DESUG_VECTOR, PROC_ID_BYTF, 
GPfi0_0F FSET_STRING, 3LOCK_LABEL_PEEFI2, and” ANY_R BGS_SA VED. ♦/ 
call C03P_SEE_aS5T03B_BAN73 

/* Set RESX IjJE^AflBA to 'SV*. Set REST1 and 
operands or, if omitted, then to FIRST^ 
call CORP_GB»_EXir_LABEL 

/♦ rf”an XE r iaael is r^-iuired, put it into LABEL (generating 
any Lao il already there). 
if OS LINKAGE 


REST2 to KESTORE= 
and LAST_REG_SAVED. 


♦/ 


then 

call GOa?_i3STOdE_REG1 3 

/* Move register 13 pointer to point to previous save area, 
poi.iter to current area in register 1 if it is dynamic, 
if dyna:iic^9avearea 
then 

call C3RP_FftSE_DYNA3_SAVEAREA 

/* Issue PRBBKAtJI for dynamic core. V 


saving 

♦/ 


fi 

call COR?_D33UGGING_5TOR3S 

If D3BOG_CORPVAL9SS_REQD, copy registers into CRP save area. If 
COR?VALJES and RET(|RN= (or RC=) specified, copy SV save area to PCK 
save area, set R8STORE_AREA to *BCK’, and set BCK_AREA_REC!D. ♦/ 


tk 

call C0a?_SBT_35iaaN_CO9E 

/* if^RC-vdlue (or implied zero) , load it to GPR15, except that if it 
is in a register other than 15, Leave it in that register. Set 
RC REG vitii register name which contains RC at exit, if any. */ 

call COH?_SAV2_32ruaNING_HEGS 

** If any -register s ara to be restored, do the following; for the 

register containinj the return code and all those listed in 
HBTU.RN-, store each register into the appropriate word of the 
save ar ?a from which the ultimate Lfl instruction will be issued. 
Also sat OS^POTKTSR and LOCAL_POIHTER to reflect proper save 
area, */ 

if QS_LINKAG2 DSBOG^S A VETR ACB^REQD 

then 

generate (LABEL J| * 1VI ♦ H 9LOCK_LABEL^PREFIX || "S7,X»FF<’<) 

LA3El":= »* 


call C0R?_RESr03S_REGtST32S 

/♦ Restore 3EST1 through REST2 from proper save area if saved, */ 
if OS^LINKAGE 
”then 

“’“iineratS hASEL jj « MVI 1 2 (1 3) ,X • FP » » ) 

/* Set ^iag in previous save area to show return. */ 

LABEL ;= 

if^LTNK •H0N2» 
then 

g^erate (LABEL || • 38 • I1 LINK) 

LABEL := " 
f i 

call C 03 P_GEN_::AP_dCK_AREAS 

/* Generate ths CRP aad aCK save areas. 
if LABEL # » ' 

aeierate (LABEL H * DS OHM 

LABEL :- < • 

fi 

call POP_OLD_BL9CX { ; ) 

/♦ Delet -2 P30C bloch from the stack. (Lemma: POP_OLD_BLOCK 

decreaaits cuRRENr_NEST_LEVEL by exactly one.) */ 
call C0RP,RS5r9IE_^3EaJG_3HYI80NMEST 

/♦ Restore vaiua of debugging switches from PREVJOUS^DEBUG^VECTOR. */ 

mend 

{Lemraa; If CURJEN T_SESr_LE7EL > 0 and 

[PR0C_HAME - or ^ BLOCK^NAHS {CURBEHT_NEST_LEVBL) ] and 

3L0CK_riPfi(C JRRBNT_N3ST,LEVEL) = *PROC», then 

CORE 3Ni’_3E3T_LE7EL' will be decremented by exactly one.} */ 


•o*o*o«o«o»o*o«o*o*o*o«o»o*o»o*o*o»o»o»j»o»o*o*o»o«o*o®o»o«o*o«o»o*o*o*o*o«o*o«o*o*o«o*o*owo*o»o*o* 
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831«I8, 

831ft9, 

83150. 

03152. 
83153. 
83154. 
83155. 
83156. 
B3157. 
B3158. 
83159. 
83160. 
83161 . 
83162. 
83163, 
83164. 
83165. 
83166. 
03167, 
83160. 
83169. 
B3170. 
83171. 
83172. 
83173. 
83174, 
83175, 
83176. 
83177. 
83178. 
83179. 
83180. 
83181 . 
83182. 
83183. 


£Coc CDRP_GEr_PHOC_tifFO 

/♦ Get info saved by PHOC macro. */ 

CliaE X /* Temporary. ♦/ 

PrRST_HEG_SAVEJ :=^ OPERAND 1 (CURRENT NEST LEVEL) 
LAST_RBG_SA7ED 0PERAND2 (CORREKTInBStIlEVEL) 

X i= INPOBMATION (CURRENT NEST LEVEL) 

OPFSET_TO^GPRO := X[l,2] - 50 /♦ Stored biased by 50. ♦/ 

if OrFSET_l!O_GPH0 < 0 

GPRO_OFF3ET_STfllNG := *-» |{ bFFSET_TO_GPRO 

/♦ rn string conversion, absolute value is takenj 

else 

GPRO^OFFSEr^STRING := *♦« OFFSET TO GPRO 

fi ” 

:= X[3,l] 

= 

= X[5,l] 

= OPERAND! (CURREHT_NEST_LEVEL) 

= OP2RAMD4 (CURHENT”nEST_LEVEL) 

= (FIRST REG_SAVED 
= 


restore sign. ♦/ 


OS_LINKAGB 
DYHANIC^SAVBAHEA 
FrRST_VALUE^KNO iN 
SAVE_LENGTH 
PREVIOUS DEBUG VECTOR 
any_reg5Isaved' 

PROC ID BYTE 

it xf3,T] 

then /* Special PfiOC prefix. ♦/ 

BLOCK_LAB£L_PR£FXX ;= < |:p* || PROC_TD_BYTE 
/* Standard prefix. */ 

BLOCK, LA3EL_P2EPIX := || BLOCK_NUHB£ R (CURRENT KEST_LEVEL) 

. 

If PIRST_»dH)E_XKOSK 
t hen 

FIRST__S A VEA 1EA,RBG FIflST_R EG_SAVED /* Convert to integer. */ 
else 


fi 


C2E:g 


FIRST_SAVBAR£A BEG 14 
L 

/* FIRST^SA VEAfiEA,REG ia similar to the variable SAP of PROC. */ 


0«0*0«0*0*0«0«0«0«0«0* 0*0*0 *0«O* O* 0*0*0 • 0*0* o *0 *0*0* 0*0* 0*0* 0*0 *0*0 *0*0 *0*0 *0*0 *0*0* 0*0 *0*0* 0*0*0* 
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83185. 

2roc CORP_3 3r_R3SrO.?fi_JtiAK'5E 

to FIRST 

83186. 

/♦ Set RSSri and aEsr2 to 2EST0RE= operands if present, else 

83187. 

and LAS 2 dEG SA7^?D. Set RESTORE^ARBA to «SV«. Also set 

MOLT and 

83188. 

C0M:iA2 to proper values. ♦/ 


83190. 

/* Assume: */ 


83191. 

FB5T1 := ?I3ST_3fiG SAVED 


33192. 

REST2 := LAST IZG SAVED 


83193. 

MULT := 'M» 


83194. 

C0MHA2 


83195, 

FIRST BEST VALU 3_Ki0tfU ;= ?I aST_V ALUE_KNOWN 


83196. 

/♦ Nov find out. */ 


83197. 

if - ANY REGS SAVED 


83198. 

then 


B3199. 

if RESTORE ^ • ' 


83200. 

then 


93201. 

fliaote (3, 'STRCBIOI NO REGISTERS SAVED — RESTORE IGNORED*) 


83202, 

fi 


83203. 

else 


83204. 

RESTORE * • ♦ 


83205. 

then 


83206. 

REST1 : ^ RESTORE (1) 


83207. 

REST2 : ^ adST0RE(2) 


83208. 

FIRSTAR ESr^VALUB^KNOWN := (T » RESTORE < 1) “ »»*) 


93209. 

, /♦ true iff first suboperand is a self-defining term. 

*/ 

83210. 

fi 


83211, 

fi 


83212. 

if REST2 - ** 


82213. 

then 


83214. 

aULT, C03HA2 := ** 


83215. 

fi 


33216. 

RESTORE_AREA ;= *SV* 


93217. 

corg 



• 0 » 0 * 0 »P» 0 * 0 * 0 « 0 * 0 * 0 * 0 * 0 * 0»0 » 0 * 0 * 0 » 0 * 0 •O* 0 * 0 • 0 * 0 * 0 • 0 * 0 « 0 * 0 * 0 * 0 * 0 • 0 » 0 * 0 « 0 * 0 * 0 » 0 * 0 * 0 * 0 * 0 * 0 • 0 * 0 *o*o*o* 
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83219. 
83220. 
83221. 
R 3222. 
R3223. 
8322t^. 
83225, 
83226. 
83227. 
83228, 


£tac C3RP_D280G^INv5^SroABS 

/♦ Given: Ji_LIWKA;<2, If PEBUG_COflPVaLUES_REQD, Store copy of 

registsir values into CHP savearea. If CORPVALUES and RETURN- (or 
RC=) spicjified, copy SV save area to 3CK save area, set 
R5STOr<3,AilEA to and set BCK^AREA^REQD , */ 

CRP^BCK^OFP 5ET, /♦ Character string to be inserted to insure 

registurs are stored at proper offset from CRP/BCK label. */ 
3V_0P?SET /* Character string to be inserted to reference proper 
offset froffl SV save area label. */ 


83230. 

33231. 

33232, 

83233. 

83234. 

83235. 

83236, 

B3237. 

83238. 

83239. 

83240. 

83241. 

83242. 

33243. 

83244. 

83245. 

83246. 

83247, 

83243. 

83249. 

83250. 

63251. 

83252. 

83253. 

83254. 

83255, 

83256. 

83257. 


if D2BU‘3_C0RPYALJ2S_RE0D 
then 

if DEBOG^SAVUrdACg^RBOD 
5V_OF?S3T := *+12» 

:rp_bck_of?set »+i2» 

else 

CRP_BCK_0F?S2T := 
if OlflJl^PROCCOlPNIlS^REgU 
then 

5V_ OFFSET »>4» 

else 

SV_3FFSET »' 

fi 
f i 

aeairate (wABjJL i| » 3T« 14,12,* || BL0CK_LABBL_PREFIX j| 

*Ci?* 11 CRP BCrt_0?FSET) 

LABEL := " 

if aRTURN * •* or (RC * ♦* and * 'NONE*) 
then 

BCK_ARS.\_RE20 := t^il3 

ge nerac e (* :1’/C ' \\ 3L0CK_LABEL_PREFIX J| * BCK » || 

C2P_3CK_OF?33T H * {* |) SAVE_LENGTH J| **4),* |J 
B^0CK_LA3EL PREFIX |J * SV* ji 5V OFFSET) 
RE5TOR2_AaiA * 3CX ' 

fi 

fi 

corp 


♦0*0»0»0*0»0 •0*0»0«0»0« 0*0*0 •0*0*0*0*0*0* 0*0*0*0* 0»0«O*O* 0*0* 0*0 *o*o*o*o*o*o*o*o*o*o*o*o*o*o*o*o* 0* 
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83259. £COC C0HP_EEST0aE_a 3G13 

83260, ” /* If currciTit ^ave area is dynamic, save pointer to it in GPFl. In 

83261, any cas load GPEll to point to previous save area. Given; 

3 3262, OS_l.I»KiGE is true. ♦/ 

8326U. 

83265. 

83266. 

83267. 

83263. 

83269, 

83270. 

33271. 

83272. 

83273. 

8327U. 

83275. 

33276. 


•0*0*0*0»0*0*0*0*0*0*0*0«Q»0»0*0*0*0*0*0*0*0*0»0*0*0«0«0*0«0»0*0*0*0*0«0*0*0«0«0*0*0«0«0«0*0«0*0»0* 


if DYNA’1IC_SAVEAaSA 
t hen 

asneratg (..AdfiL j| • L9 
LABEL^;= •• 

£i 

if SAV8TfiACE_Oi_Fia3r_PROC and PROC_ID_BYTE = *01* 
t he n 

generate (LABEL H » L 1 3,$PIBSTSV+4 <) 

else 

generate (LABEL H • L 13,4(13)') 

fi 

LABEL := *• 
corn 
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B3278. 

B3279, 

83280. 

83231. 


£roc C OR P_SfiT_RETU a 

/♦ If RC=valae <or iaplied zero), load value ioto GPR15, but nop if 
ac= (reg) . Sote in SCORER what register (if any) contains EC at 
exit. */ 


83283. 

83284, 

83285. 

83286. 

83287, 

83283, 

33289. 

83290. 

83291, 

83292. 

83293. 

83294. 

83295. 

83296. 

83297. 

83299. 

83299. 

83300. 

83301, 

83302. 

33303. 

83304, 

B3305. 

83306. 

83307. 

83303. 

83309. 

83310. 

93311. 

83312. 


RC^REG /* Indicate no return code. ♦/ 

if RC = »» 
then 

^ if OS_LI.tKA32 
then 

(LABEL il • SR 15,15») 

/♦ 7iear IS for nornal OS return. ♦/ 
LAB3L ; -* » ■ 


RC^RSG := ' 15» 
fi 

else 

■■“if Rcr 1,1] = » (« 

then /* Register was specified. ♦/ 

RC_R2G ;= aC(1) 

/* JJote what register return code is in. ♦/ 
sis® /♦ Value was specified. */ 
if RC * »fJOWE» 

"ihen 

if i\z - »o* 


then 

(LABEL | | » SR 

else 

ge nera te (LABEL J | » LA 

ii 

LAB 5L ;= • » 


15,15») 

15,* II RC) 


a 

li 

corp 


u 


M3» 


•o*o*o*o*o»o*o»o*o*o«o*o«o* J •o*3*o«o*o*ovo«o«o*o»o«o*o*o«o*o»o*o*o*o 


•o*o«o*o*o*o*o«o»o*o*o*o«o*o«o« 
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93314, groc C0RP_SAVB_Si3T/ailI«G_aEGS 

83315. /'•* ?ar the rajister contdiaing the return code and all those listed 

93316. in aSTJ store aach register into the appropriate word of the 

83317, save ac froffl which the uitinate LM instruction will occur 

93318. (setti.ii 03_P0lNTEa and LOCAL_POIHTEB to indicate this save area). 

93318, :Jow3iver, if no registers are to be restored, then this proc 

83320, is a nop. ♦/ 

93321. int OFFSET, I /* Teapocacies. */ 


83323. 

33324. 

93325. 

83326. 

83327. 

R3328. 

83329. 

83330. 

83331. 

83332. 

83333. 

93334. 

83335. 

93335, 

93337- 

83338. 

83339, 

83340. 

93341. 

B3342. 

03343. 

83344. 

93345. 

93346, 

83347. 

83348. 

83349. 

83350. 

83351. 

83352. 

93353. 

83354. 

83355. 

63356. 

83357. 

9335B. 

83359. 

S3360. 

83351. 

83362. 

83363. 

83364. 

83365. 

93366. 

83367, 

83368. 

83369. 

83370. 

83371. 

83372. 

83373. 

03374. 

03375. 

83376. 

83377. 

83378. 

83379. 


if ANY_RE3S_SA/3J 

if 05 ^limka:; 3 
th§i 

^os^poi:i rfii := Ml 3) * 

LOCAL_P liapEfl ** 
else 

^os_?oifiiP3a 

L0CAL_P0iar3fl := BL0CK_LABEL_?RB7IX || BHSTOEE_AKEA || 

f i 

if BC^REG jfe 

then /* RZ (Bast be restored. ♦/ 

"if ?ia3T_3AVEARSA_92G < 14 

then /* 4e will not be changing BC; load it now. */ 
if BC_rfEG # *13' 
t aag 

gen^ate (LABEL H * LR 15, • | | RC^REG) 

LAdEL := ** 

£i 

else 

OPPSEf := (OFFSET TO GPRO - 1) ♦ 4 

{LA33L M * ST » H RC_REG II M 

LOCAL POiNrEH |] OFFSET j| 0S_P0INTER) 

LAd3L ;= * * 

fi 

tk 

If fIRST_SA»-3iREA_HBS ^ 14 afid H'SETUBH > 0 
then 

'^aote (4, 'STRC8302 HABHIHG — NO CHECK MADE TO INSURE RETURNING ♦ 

11 *REGlST2ft$ ARE AMONG THOSE SAVED IN TRUNCATED SAVE AREA*) 

tk 

I ;= 1 

w^le r 5 N’fiSTURN 

' §r 

if T*R2TU2N(I) - *N* /♦ Self-def ining tera. ♦/ 
then 

0FF33T i- (OFPSBT_rO GPSO + RETURN (I) - ((RETURN (I) 4 ?)/16*16)) * 4 
generate (LABEL ll • ST * || RETURN (I) H II 

LOCAL^POINTER || OFFSET || O$_P0INTER) 

else 

if ’*IB3T_SAVBARSA_HEG < 14 

(LABEL || » ST * || RETURN (I) \ \ *,* 1| 

LOCAL_POINTER || • (* || RETURN (I) |t GPPO_OPFSET_STRING || 

*)*4* II OS_POINTEE) 

else 

generate (LABEL M * ST * || RETURN (I) J| *,* || 

L0CAL_P0IMTBR || * (• ll RETURN (I) j| GPR0_OFFSBT_STRING || 

*-((* II RETURN (I) II *42) /16*16) ) *4’ || OS POINTER) 

fi 

fi 

I t 4 1 

LABEL : - " 

od /♦ {Tarniina tions I is increraented, N* RETURN is fixed in loop; 

I oust eventually exceed N* RETURN.) ♦/ 

fi 

S2EE 


• 0 * 0 * 0 * 0 « 040 * 040 * 040 « 04040*0 * 0 * 0 * 0 * 0*0 40 * 0 * 0 * 0 * 0 * 0*0 40 40 * 0 « 0 * 0 * 04 040 • 0*0 40404040 40 • 0 * 0 * 040 * 0 * 0 « 0 * 0 * 
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83381. fiCQC C0fiP_FaE£_DYNA1_SAVfiAF3A 

83382. /* Issue FHEE3AIN for dyflaaic save area. ♦/ 

83383. lin^ate (LABEL J| » LA 0,* 1| SAVE_LENGTH || **4*) 

83384. LABEL := 

33385. aeaer^e (» FREEBAIW H,LV= (0) , A= (1) * ) 

83386. co£E 


«o*o*o*o*o*o*o*o*o>o*a*o* a*o •o«o*o*o*o*o« o*o*o*o*o*o*o*o*o*o»o*o«o«o*o«o*o«oao*o*o«o*o*o*o*o*o*o* o* 
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833B6, argc C 0 RP_HBSr 0 R 2 _R 2GI3TEB S 

$ 3389 , /* Restore registers RBST1 through B3ST2 from proper save area ri 

83390. saved. ♦/ 

83391. iat OPPSET, I /'*• Tetn|JOEaries . ♦/ 


03393. 

B3394. 

B3395, 

83396. 

83397. 

83398. 

83399. 

83400. 

83401. 

33402. 

83403. 

83404. 

83405. 

83406. 

83407, 

83408. 

83409. 

83410. 

83411. 

83412, 

83413. 

83414. 

83415. 

83416. 


if ANY_REGS_5A7ED 
then 

if FIRST^aBf>r_VALUE_KNOIfS 
theg 

" r ;= RiiSIl /♦ Convert to integer. */ 

OFFSET (OFFSET_TO_GPRO + I - ( (I ♦ 2)/16*16)> * 4 

qa nerat a (LA8BL I 1 * L’ I I HOLT i ( ' * M RBST1 

HEST2 II C3?iaA2 || LOCRL_POIHTEH |J OFFSET | 


II S' II 

I OS^POIHTEB) 


FI35 r^5AVERREA_R£;G < 14 
then 

generate (LABEL M * I-* II HOLT H * * II REST1 || * II 

HE5T2 II C0HMA2 || LOC AL^POIHTEB || • (* II Ri:5T1 || 
GPR0,,OPFSPP_STRING || M *4» || OS^POINTER) 

else 

"generate (LABEL H » L' || HOLT || • * II RESTi ll II 

RBSr2 II C0WHA2 || LOCAL_POlNTER || M* II RESTI || 
3 PR0_OPFSET_S THING |] »-((* I I RESTI || • +2) /16* 1 6) ) *4 » 

OS_POtHTBR) 
fi 

tk 

LABEL ** 


tk 

corp 


ll 


•0*0*0«0«0*0»0«0»0«0«0*0*0*0*0*0»Q»0*0*0*0*0*0«0»0»0*0*0*0«0»0«0^0*0*0^0«0«0*0«0*0*0*0*0*0«0*0*0*0* 
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83in8. Rrgg C03 P_aSSr3RB_D8BiJG_EaviaO»15NT 
83419, /* R^stoce isoug flajs which 

83420* GL03AI. laased Dull 7alue 

83421. in PREV COJS.DEBOG 72CTOR 


were in progress before the PROC (rnless 
to suppress restore) . Values are packed 
and need only be unpacked. ♦/ 


83423. 
83424. 
33425. 
83426. 
03427. 
93428. 
83429. 
83430. 
B3431. 
83432. 
33433. 
33434 . 


if PRBVloaS_DE8 JG^VECTOR ^ »' 
then 

DS3UG_9X.0CK;iA:iES_fiEQl> : = 

i- 

DE3UG_LrST3L0CKS_REQD := 
DEBOG_BLOCK?OJRTS_BBQ5 = 
D3BOG^?ROCC3U»TS_aEOO := 
PEBUG'PROCrRACE_fiEQD := 
PBBUG3c0dPVALJES_BEQD := 
D3aaGlSAVEr3ACS RBQD := 

fi 

corp 


PREVIOUS_DEBUG_VECTOR[ 1,1] 
PPEVrOU5_DBBUG_VECTOB[ 2, 1 ] 
PR5VIOOS_DEBUG_?j;CTOR[ 3,1 ] 
PREVIOUS DEBUG VECTOH[4,1] 
PRBVIOUSlDS30G_7ECTORf 5,1 ] 
PFEVIOUS^DEBaG_VECTOF[6, 1 ] 

pfevious2debug_vector[ 7,1 ] 

PRSVIOas_OEBUG_VECTOR[ 8,1 ] 


• 0*0*0*0*0*0*0*0*0*0* O* 0«0«0 .>*0* 0*0 *0*0* 0*0*0* 0*0* 0*0*0*0*0*0*0*0« 0*0 •0*0*0 VQ^O *0*0 *0*0*0*0 *0*0* 
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B34 36, ^roc CORP_";^N_C3P_a:x_AflEAS 

^134 37. ~ /* If reiuiciil, g^nerati CAP and BCK save areas. ♦/ 

83438, ::Kar 

83439. ” LAST_A^^A^ /* Lanel of CR? or BCK area, whichever is generated 

93440. last. ♦/ 

93441, PWD_PrR, /* Label geuacAted as forward pointer in last area. ♦/ 

83442. TARGET /♦ Temporary. */ 


83444. 
33445. 
33446, 
63447. 
83448. 
83449. 
83450. 
83451. 
93452. 
83453. 
93454. 
83455, 
83456. 
3 3457, 
83458. 
93459. 
83460. 
83451. 
83452. 
83453. 
83464. 
83465. 
93466. 
83467, 
83468. 
83469. 
93470, 
93471, 
93472. 
83473. 
83474. 
83475. 
83476. 
83477. 
83478. 
83479. 
83490. 
93491. 
93482. 
83483. 
83494. 
83485. 
83436. 


if OS_LI«KAGjS aai DfiBJ5_CORPVALOES_REQf) 
then /* need”a CRP save area. */ 

'if LI>1K - 

jiist generate branch around save areas. V 
TARGET flLOCK^LA3SL_?R9FIX M ’FIN* 
generate (LABEL | I ’ B » M TARGET) 

LABEL : - CARiET 
f i 

LAST AREA := BLOCK LAB2L_PREFIX || 'CEP* 
generate (LAST.ARSA 1| ’ OS OF*) 

if’’0%aG_SA73TflAC2_RZQ3 
then 

geoerab e (” BC X»FC« || PHOC_ID_BYTE ll "0000*”) 

if 3CX_ARSA_8BQD 
then" 

:= 9LO':X_LABEL_?REPIX || *BCK* 

§iso " 

FWB^PTA := BL0CK_LA3EL_RRBFIX || »FWD« 

fi ' 

generate {PaE7_SA¥27RACE_PTR || * EgO * || 

BLOCK LABBL^PRSFIX || *CFP*) 

generate (* ** DC A(* || ?REV_SAVETRACE_AREA l| *,* || 

"FifD PTR 11 M *) 
fi 

generate {” DC 15P*0'”) 

if icx2^H3A_REgD 

theg /* need the BCX save area. */ 

"lAST,A 33A ;= BLOCit^LABEL^PREFIX || *BCK* 

7* The BCK area is now the last one generated. ♦/ 
generate (LAST^ARBA || • Ds OP*) 

if"5iiin_SAVETRACE_RE0D 

thea 

generate (” DC X*FB” U PROC_ID_BYTE i| ”0000*”) 

phd"ptr";= BL0CK_LABEL_PREFIX M *FWD* 

geger^te (* DC A(' j| BL0CK_LABEL_PR EFIX || *CRP,* l| 

F;^D_PrR) 
f i 

generate {* OC (* || SAVB_L2NGTH J| ”)P*0»”) 

fi. 

PRE7 3A73T3ACZ_PTR := ?WD_PTR 
PaEV'SAVETHACB^AiiEA ;= LAST^AREA 

fi ^ 

£2EE 


• 0 *o* 0 * 0 * o* 0 *o« 0 * o*o«o*o*o*o«o*oa O'* 0 * 0 * 0 vo*o«o*o«o«o*o*o*o«o«o*o«o«o*D«o*o*o«o« o*o*o*o*o*o*o*o*o*o* 
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83498. ££2£ CDRP_ 3EN_3X IT_ C.ABEL 

83489. /* ir'an KI c laDel is requiredr P'lt it into lABEl (generating 

B3490, any Ian already there) • Issue anote regarding EXIT references.. ♦/ 

83492. if SXri’_LAB£L_.l3^J (C8R9S»T_MESr_LEVSL) 

93493. “ then 

93494 . if 1A3EL * * 

93495. then 

83496. gene rat e (LABEL j| ' DS OH*) 

83497. fi 

93498. LAB3L ;= BLJCK.LA 3EL_P33nX || »IIT» 

83499. if SXIT^SE'/SflirY - »* 

83500. ”then 

83501. SXlT_SJVEHiTY ;= *4» 

83502. fi 

83503, nmote {EXIT_S2VEHITY, 

83504. ^ " '»SfRC3303 JiiE OR SORE EXIT*S PSFER2NCE THIS POINT”) 

93505. 2XI?_LA3EL_R3aO (CU3RBNT_NBST_LEVEL) := fa lse 

83506. /* XIT^laoei vill have been generated by POP_OLD_BLOCK tiroe. 

B3507. fi 

93508. S2££ 


• 0 * 0 « 0 « 0 « 0 * 0 « 0 * 0 * 0 * 0 « 0 * 0 » 0 « 0 • 0 * 0 * 0 * 0 «a* 0 « 0^0«0*0*9«0*0«0*0«0*0*0*0«0*0*D«0*0* 0 * 0 * 0 •O*O* 0 « 0 * 0 * 0 * 0 * o* 
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91001. 

91002. 

91003. 

91004, 

91005, 

91006. 


macro EXIT.PIHD ( ; bEQD_:1A1E) 

/♦ Set ULTI «Ari2_BaA!ICH_LABEL to exit label for block whose na»e 
is the argument; if no such block, issue message and set 
ESROR_OCClJAR£D. Oa valid block, that block is marked as needing 
aa xir label. V 
int I /* Temporary, ♦/ 


91008. 
91009. 
91010. 
91011. 
91012. 
91013, 
91014- 
91015. 
91016, 
91017. 
91018, 
91019. 
91020, 
91021, 
91022. 
91023, 
91024. 
91025. 
91026. 
91027, 
91028. 
91029, 
91030, 
91031 . 
9 1032. 
91033. 
91034. 
91035. 
91036, 
91037. 
91038. 
91039. 
91040. 
91041. 
91042. 
91043. 
91044. 
91045. 
91046. 
91047. 
91043. 
91049. 
91050. 
91051. 
91052, 
91053. 
91054. 
91055. 
91056. 
91057. 
91058. 


call TRACE.PRIMTEa ( ; »3iITFIND*) 

/* Print macro name «EXrTriBD" in mnote if tracing on, ♦/ 
ERROfl^OCCOBREO 1= false 

/♦ Assume. ail will go well. V 

I := CURRENT NE3f_L£VEL - 1 /* Start search at surrounding block. */ 
if ’ REQD_NAHE"’»t * * » ** 

^then /♦ We must search cor the right block. */ 
while I > 0 ajil BEQD^SA.IE # BL0CK_HA HE (I) and 
BLOCK^TYPE (II ^ • PROC » 
do 

I I - 1 

od /* (Termination; I is lecremented and would eventually become 
<0 even if other tests never occurred- } */ 


fi 

if I < 0 or 

(REQD_NAHB # BLOCK^NAME (I) and * and # *♦*) 
theij /* Not found in search. ♦/ 

"ERBOB.OCCOBafiD := tru e 
if RBQD_»A33 = •• 0£ = 

“ /♦ Didn’t even search; EXIT not nested. */ 

(3, •STRC9101 EXIT MACRO NOT SUFFICIENTLY NESTED’) 

else 

^if aEQO^MAilE ^ BLOCX_NAKE (CUaRENT_NEST_LEVEL) 
th£Q 

^ ngote (B, ’STBC9103 EXIT TO IMMEDIATELY SURROUNDING BLOCK INVALID*) 

else 

“mnote (8, *SrRC9102 NO BLOCK ACTIVE NAMED «' || FEQD_NAHE || » '♦ » ) 

if r> 0. 

t ien 

"^mnote (*, * WITHIN PROC * || 0LOCK_NAME (I) ) 

fi 

ti 

f i 

else /♦ ^ound. */ 

if BLOCK rY?3(I) - 'DO' and 

(INFOaflAriDN (CURRENT_REST_LEVEL) £6, 1 ] or 
INFORMATION (CUF S BNT_NEST_LE VEL) [ 7, 1 )) 


^^muotg (8, 'STRC9104 EXIT TO DO BLOCK INVALID WlTRIN ATEND OR ONEXI?*) 
EiR0a_0GCUaaBD := t£ue 
else 

if SLOCK^TIPE (I) = *PROC* and IHFOBMATIOtMI) [ B, 1 ] 
then /♦ Must use special PROC prefix form. V 
“jLTIdATE_BRAKCH_LABEL *$P» || IKPORHATTON (I) [ 6 ,2 ] \\ ’XIT* 

else 

■‘uLflMArS BPANC:i_LABEL := •$* || BLOCK^NU MBEE (I) || 'XXT* 

ii 

EXIT LABBL^RBQD (I) := t£Ue 

fi 


fi 


mend 


• o*o*o*o*o*o*o*o»o»o<o«o«a«t)« o*o*o*o*o •o«o*o*o*o»o*o*o«o*o*o*o»o*o*o«o*o»o*o»o*o*o«o»o*o«o« o* 
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"POP_OLD_8LOCK'» Macro — 10 July 1973 


92001. 

92002. 

92003, 


raacro POP_OLD_BLOCK { ; OLO^aXIT) 

/* Henove the current block fron the stack. Also generate END and XIT 
labels If required. ♦/ 


92005. 

^2006. 

92007, 

92008, 

92009, 

92010. 

92011. 

92012, 

92013. 

92014. 

92015. 

92016. 

92017. 

92019. 

92019. 

92020, 

92021. 

92022. 

92023. 

92024. 

92025. 

92026. 

92027. 

92028. 

92029. 

9201D. 

92031. 

92032. 

92033, 

92034. 

92035. 

92036, 

92037. 

9203B. 

92039, 

92040. 

92041. 


call TRACB^PaiNIfia ( ; ♦POP*^ 

/* Print macro name '•POP” in mnote if tracing on. */ 
if coaR2ST_tfesr_j.sy£i. < «BsrrKS_LiMif 
t hen ” 

if END_LABBL_R2^iD (CURH3NT_NBST_LEVEL) 
then 

generate (•$• || BLOCK NUMB3R (CORRENT_NEST LEVEL) J| •END DS 0H») 

if EXIT_LAd2L_RE3D (CkfRaBNT_NEST_LEVBL) or OLD^EXIT # *• 
then 

if BXir_SEV2RITf = • * 
then 

ixiT_3EV2aiTY ;= *0* 

tk 

ranotg (3XIf_5B7ERITY, 

"Sric9201 ONE OR MORS BXIT»S FEPEHEHCE THIS POINT”) 
if Ear^LABBL^REgD (C0RREHT_NEST_LEVEL) 
than 

gen srate (•!* || BLOCK^NJJHBER (CURRENT_NEST_LEYEL) IJ *XIT DS OH') 
if^OLD^SIIT * •• 

gen erate (0LD_EXIT 1 | • DS OH*) 

tk 

f i 

if DE9UG_LXSXDLOCKS_22^^D 
then 

(*/ *STRC9903 end of block • || block NUMBEB (current NEST_LEVEL) 
n •(* n 3LOCK_NAME (CURRENT NEST_LEVEL) |1 *) AT DEPTH • I) 
C0aiSMT_N 25T_1SVEL) 

SfiOii i*f * **♦*♦*♦♦***♦*♦ I j 


CURP.BNT_N5ST_I.372L := CU3R2NT_NEST_LE VEL - 1 

aeal 

/■► {Lemma: Execution of ?0?_OLD_BLOCK always decrements 

CORRENf aESr_LEVEL by exactly one.) ♦/ 


*0*0*0*C«0*0«0«0«0«0«0»0«0*0*0*(>*0«0«0*0«0*a«0«0«0«0«0«0«0«0*0*0«0^0*0*0«0«0*0*0*0*C>«0*0*0*0*0*0« o« 


C-104 



"PUSH_HEW_BLOCK« Hacro 


10 Only 1973 


9 300K 
93002. 
93003. 
9300*1. 
93005. 
93006. 
93007. 
9300S. 
93009, 
93010. 
93011. 


macro PUSH_SS9_3LJCK (j3LOCK_rt4 ME_V A LUE ; 

PLOCX_rifPE_»fALUS^* ’ , 

OPERa»Dl_VALOE^»» , 

OPERAND >_YALiJS=* » , 

0?SaAHD3_VALaS=»* , 

OPERANDS YAL0a=» » , 

IN?OR?1ATXO»_tf AL0B=* * , 

EN0_:.AiJ3L_VALtJE=f also) 

/♦ Defino n 2 w”bioc)c; ^ald to stack. Save block specifications- 
All macro operands anspecified default to null string except 
£VD_LAB3L_tfALtJE decaults to false. ♦/ 


93013, 

93014. 

93015, 

93016. 

93017, 

93019, 

93019. 

93020. 

93021. 

93022. 

93023. 

93024. 

93025. 

93026. 

93027, 

93020, 

93029, 

93030, 

93031. 

93032. 

93033. 

93034. 

93035. 

93036. 

93037. 

93038, 

93039. 

93040. 

93041. 

93042. 

93043. 

93044, 

93045. 

93046. 

93047. 

93048. 

93049. 

93050. 

93051. 

93052. 

93053. 

93054. 

93055. 

93056. 

93057. 

93058, 

93059. 

93060. 


call TRAr2_PAIN?EH ( ; »PU5HM 

/♦ Print macro name ”PJ5H" in mnote if tracing on. ♦/ 

NBSTlNG_Linir := 100 

/♦ Insure laixiaai dept.i of stack is set in variable. Note that stack 
depth and this variable must match^ but may be changed to any 
value. */ 

GCASE_N2ST_LINI r 9 

/♦ Same for general CASE stacic, ♦/ 

ERE0R_0CaJ233D 1- x.alse 

CURRENT_NEST_L57BL : =“C0RR3HT_NBST_LEVEL + 1 
if CUaRENr_NB5r_LEVBL > SBSri NG_LIH1T 

'lasie »STaC9301 3L0CK NESTING LIMIT OF » | j NESTING_LIHTT M 

* 3(CfiSD2D — MAC.H05 MUST BE MODIFIED*) 


ERHOB_ OCCUR RED ;= tru e 
else 

LAST_flL0CK_N0NBga := I AST_BLOCK_NUKBEB 
/* Set block numoer for this block. 

BLOCK NUMJB3 (CJHREMT_NBST_LEVEL) 

BXIT_LABEL 3E0D {C0RR2NT_NEST_LEVEL) 

BLOCK_rTPE*(CURRENr_NEST_LS7EL) 

OPSHANDl (CJ82ENr_NEST_LSVEL) 

0PERAND2 (CURSEKr^NEST^LEVEL) 

OPERAND! (CU3RENr“NESX'^LB7EL) 

0PERAND4 (Ci;RaENT~NEST>B?EL) 

INFORMATION (CUR8BNT_N EST_LB VEL) 

END_LABEL_aSaD (CUR RSNT_NEST_LEVEL> 

BLOCK_NAMB (CURR2Kr_NBST_LEVEL) 
if BL0CK_NA 12_VALUE - »* 

BLOCK_NAME (COR REHT^NBST. LEVEL) 
f i 

BLOCK_LABSL^PRSFIX *1* I I LAS7_BLOCK_MUM0ER 
if CDHRSNr_NSSr_LEVEL > 1 and 

BLOCK^TYPE (C(JRSENT_NEST_LEVBL-1) = »DOCASE* and 
BLOC k“tT? 3^7 ALOE »t”*CASE* 

inote (3r 

•srsc9302 NON-CASE BLOCK IMMEDIATELY SORRODNDED BY DOCASE INVALID*) 

Ik 

if DEBUG_LlSlBi.QCKS_a‘2QD 
then 

mnote (*^ * *************************************************‘***) 

MOte (*, *STRC9902 START OF BLOCK • || L AST_BLOCK_NDHBER |1 *(* || 

BLOCK NAdE (CUBREHT_»BST_LETBL) |J ») AT DEPTH * ]| CURRENT_SEST_LBVEL) 

fi. 


♦ 1 
♦/ 

LAST_BLOCK_NUHBER 

false 

BLOCK_TYPE_VALUE 
OPERAHD1_VALUB 
OPEFAND2_VALUE 
OPBBAND3_VALUE 
OPERAND4_VALUE 
INFORMATION. VALUE 
END_LABBL_VALUE 
BLOCK NAME VALUE 


J= *BLK* II LAST_BLOCK_NUHBER 


asRi 


• 0*0»0*0*0»0*0«0"0*0»0«0«0»0*0«0«0* o*a*o»o«o*o *o«o«o»o*o*o*o*o»o«o«o*o«o*o*o«o«o«o»o«o»o*o*o»o*o»o» 
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SIMPLE CONDITIO’^AL” Macro 


10 Jul/ 1973 


9‘4001. macro S rMPLE_COiJDI riOlJ ai- (i^ASt^L; 

94002. ^ OP^CaOii, 

94003, opifll, 

94004, DP3S/!, 

94005. OPSRi, 

94006. 0PER4, 

94007, BRAI1CH_LA3EL, 

94008. ?ALLTiR J_CONDITIOi, 

94009. OP_COJNr) 

94010, /* Generate indicated instruction followed by appropriate conditional 

94011. brancn to indicatel laoel. */ 

94012- char 

9 401 3. L0CAL_MAS4, 4.0CAL_REL, /* Soids mask or relation for branch. */ 

94014. BC_TA3 /* Label to go on be instruction- ♦/ 


94016. 
94017. 
94018. 
94019. 
94020. 
94021. 
94022. 
94023. 
94024. 
94025. 
94026. 
94027. 
94028. 
94029. 
94030. 
94031 . 
94032. 
94033. 
94034. 
94035. 
94036. 
94037. 
940 33. 
94039. 
94040. 
94041. 
94042. 
94043. 
94044, 
94045. 
94046. 
94047. 
94048. 
94049. 
94050. 
94051. 
94052. 
94053, 
94054. 
94055, 
94056. 
94057. 
94053. 
94059. 
94060. 
94061 . 
94062. 
94063. 
94064. 
94065, 
94066. 
94067. 
94068. 


call TBACE_PRIM :EH { ; '3IMPCOND*) 

/* Print ,nacLO na-ue ’’SXLIPCOWO** in mnote if tracing on. */ 
call SrnP2OND_aEr_«A3S_0R_REL 

/* Extract LOCaL_ lASX^ar L0CAL_REL from 0PER*s. If LOCAL^RFL is a 
extenlel value (GF, EQ^ LT, or LE) , replace it with the 

proper value (H, .IL, E, L, or SR) . */ 
docase 0P_C0JSr 

^ 51 

£4se 1 ^lasK or relation only. */ 

BC^TAG := LAiEL 
esac 

5is§ 2 

mnote (3, <STaC?401 INSUFPICIENT OPERANDS FOR TEST «•’ || OP_COOE || 

I ft t ^ 

esac 
case 3 

generate {LABEL || * * Jj OP^CODE j| * * || OPEE1) 

esac 
case 4 

(LABEL H » ' II OP_CODE II » » II OPEH1 || *,* I I 

0PER2) 

esac 
case 5 

ge ne rate (LAciEL || < *11 OP_COD3 || ' » || OPERI || *,* ]| 

UP3R2 II < , * 11 OPEH3) 

es ac 

case misc 

mnote (3, »STaC9402 SJPERPLOOOS OPERANDS FOE TFST «• |{ OP_CODE || 

I tt ( ^ 

esac 

esacod 

if LOCAL^MASi^ = •• 

^hen 

if FALLTaaU^CONDinON /* is true: */ 

Ikea /* Invert relation. ♦/ 
if L0rAL_aEL[ 1,1] =* • N» 
thea 

LOCAL^SEL := L7CAL_REL[ 2,7] 
else 

l3c^L_REL := II LOCAL_REL 

f i 
f i 

aSaetate (3C_TAG || » 1 | L0CAL_RSL |1 ' * 1| BRANCH_LAfiSL) 

Slsg 

if FALLT.i30_C0NDiriON /* is true ; ♦/ 
then /* Invert uask. 

ainerate (BC^IAG 1 1 »• BC X*F*-« |l LOCAL_MASK || || 

B3AilCH_LA32L) 

S.eaS£^a (6C_rAG II * BC < || LOCAL_MASK fj »,» [| BRANCH LABEL) 

f i ” 

fi 

mend 


• 0 * 0 « 0 * 0 » 0 » 0 » 0 * 0 « 0 * 0 ■□•0*0*O*0*O*l)» 0 * 0 0*0*0*0«0*0*0*0«0«U*0 *0*0 *0*0 *0*0*0 *0*0 *0 *0* 0*0*0* 0*0 *o* o* 
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«SIHPLE_CONDITIOliaL« Macro 


10 July 1973 


94070. 

firoc SrtIPCOND GET MASK OH^RSL 


94071. 

/♦ Extract LOCAL 3ASK 

ar LOCJ 

94072, 

extended value <GT, GE, ] 

94073, 

proper value (H, 

NL, E, ] 

94075, 

if OP COOMT = 0 


94078. 

then 


94077, 

onote f8, »5Tac9403 HO CONDI- 

94078. 

LOCAL MASK ;= *0' 


94079. 

elsg 


94080. 

if sySLT3T(7P CO(JHT)[l,5] = 

94081, 

then 


94032. 

LOCAL MASK := SYSLtST (OP. 

94083, 

else 


94084, 

if SYSLIST (OP^CO JHT) [ 1,4 

94085. 

theft 


94086. 

LOCAL R2L ;= 

SISLIST 

94087. 



9U038. 

LJCAL_23L := 

3YSLIST 

94039. 

ik 


94090, 

docase LOCAL .8EL 


94091, 

of 


94092. 

case *GT» 


94093. 

L7CAL_BEL : 

- *H» 

94094. 

esac 


94095. 

cas3 *GE* 


94098. 

LJCAL^RSL : 

= 'KL* 

94097. 



94098, 



94099. 

LOCAL_aZL : 

= »3« 

94101). 



94101. 

case *LT^ 


94102- 

L3CAL_2SL : 

= *L» 

94103. 

esac 


94 104. 

case *LB* 


94105. 

LOCAL^RdL : 

= *HH» 

94106. 



94 197. 

Ssacoi 


94108. 

fi 


94109. 

fi 


94110- 




• O«0»0*a*O*0*!5*0*0*0*0* 0*0*0 ♦o*o»o» o»o*o*o«a«o ♦O* 0 ^ 0 ♦o*o« o*o*o*o*o*o*o«o*o»o*o*o*o*o*o«o*o*o*o*o*o* 
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"TRACE^PHTHTER” Hacro 15 July 1973 


95001. macro TRACS^PHlNTSi ( ; MACao_NAnB) 

95002. /♦ Prints macro nane if tracing on. ♦/ 

9 5004. i£ DEBUG_MACaONAJlSS R3QD 

9 5005. ** 

'is2t§ (*/ *3?fiC9500 » || MACRO NAME) 
95007. fi 

95008. meud 


• 0«0*Q« 0*0* 0*0* 0*0*0* O* 0*0*0 *0*0 *0*0*0 *0*0*0 


•o*o*o*o*o*o*o*o*o*o*o*o*o*o*o*o*o*o*o*o*o*o*o*o*o*o 


o* 
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»yEBiri_END« Gacro 


S6001, 

96002- 

96003- 

9600«*. 

S6005- 

S6006. 


VERIFY_EHD { ; REQD_TYPE, BEQD^NAGE) 

/♦ Verifies current block has Dame specified by BEQD_NAKE operand, 
any, and that it is of type BEQD_TIPE- Various errors receive 
messages and either intermediate blocks ace BLENDed as a fixup 
or ERfiOR^OCCURHED is set- ♦/ 
int I /♦ Temporary- */ 



"VEflify END“ ttacro 


10 July 1973 


96008, 

96009. 

96010. 

9601 1. 

96012. 

96013. 

S6014. 

96015. 

S6016. 

96017. 

9601 B. 

96019. 

96020. 

96021. 

96022. 

96023- 

96024. 

96025. 

S6026. 

96027. 

96026. 

96029. 

96030. 

96031. 

96032. 

96033. 

96034. 

96035- 

96036. 

96037. 

96038. 

S6039. 

96040. 

96041. 

96042. 

96043. 

96044. 

96045, 

96046. 

96047. 

96048. 

9604 9. 

96050. 

96051. 

96052. 

96053. 

96054. 

96055. 

96056. 

96057. 

96058. 

96059. 

96060. 

96061. 

96062. 

96063. 

96064. 

96065. 

96066. 

96067. 

96068. 

S6069, 

96070. 

96071. 

96072. 

96073. 

96074- 

96075. 

96076, 

96077. 

96078, 

S6079. 

96080. 

96081. 

96082. 

96083. 

96084. 

96085. 


c all r RAC I_PRI STBS ( ; •VEflIFY») 

/* Print macro naioe ••VEBIFY" in mnote if tracing on. */ 

ER ROB_OCC ORflED := fals e /♦ Assumed. */ 
if REQD^NAHE = • » 
then 

if CURREMT_NEST_LEVEL < 0 
the n 

mnot^ (8, 'STRCSSO? HO BLOCKS ACTIVE — MACRO IGNORED*) 

ERKQR_OCC0RBSD := t rue 
else 

if CURBEMT_NE$T_iEVEL > 1 and 

BLOCK_mE(CUKBERT_KEST_LEVEL) ^ REQD_TYPE 
^en ^ 

if CURRENT_RBST_ LEVEL > 2 and 

BLOCK_TYPE(CURRENT_NEST_LEVEL - 1) = REQD TYPE 

mnote (8. *STRC9601 ONE BLEND ASSUMED TO GET TO «• j| REQD TYPE |J 
*" BLOCK*) 
call BLEND < ; ) 

if CUHBEHI_NEST_LEVfiX > 3 an d 

fllOCK_TYPE (C0RRENT_NEST_LEVEL - 2) ~ BEQD TYPE 
the n " 

E.^Qte (8, .'STHC9602 TWO BLENDS ASSDMED TO GET TO *'• |1 BEOD TYPE Jt 
••• BLOCK*} 
cali BLEND ( ; ) 

call BLEND ( ; ) 

else 

l^ote (8, *STRC9603 CURRENT BLOCK IS NOT "• M REQD TYPE iJ 
*" BLOCK — MACRO IGNORED*) 

ERRCfi_OCCUaEE0 := true 

U " 

fi 

. U 

fi 

else /♦ A block name was specified, */ 

I := CUHHENT_NEST_LE?EL 

while I > 0 RE0D_NAHE 4. BLOCK NAME<I) 

do " 

I := I - 1 

^ /* {Termination: I is decremented and would eventually become 

< 0 even if other test never occurs.} */ 

if I < 0 
then 

(8, *STEC9604 NO ACTIVE BLOCK NAMED «• || REQD NAME It **'») 

EBROR_OCCUERED true 
els e 

if HEQD_TYPE * BLCCK_TY PE (I) 

then /* Block named found, but of wrcng type. *'/ 

mnote (8, 'STRC9605 BLOCK *♦• JJ REQD_NAME *” IS NOT A * JJ 
BSQD^TYPB II * BLOCK — MACRO IGNORED*) 

EREOB_OCCUBRED true 
else 

ifhile CURBENT^NBST^LEVEL > I 

^ /* BLEND any XatcrDodiate blocks. */ 

jn^te <8, *STHC9606 END OP BLOCK »» || REQD NAME j| 

*" IMPLIES END OF BLOCK "* || 

BLOCK^NAME (CURRENT NEST_LEVEL) || •"*) 
cal l BLEND ( J ) 

/* {Lemma: If CUBBEHT.NESI^LE VEL > 0 and no BLEND operands 

specified, BLEND will decrement CUERENT_nest LEVEL 
by exactly one.) ♦/ 

Qi /w {Termimation: On all iterations, 1 is fixed and 

CURRENT.HEST_LEVE1 > I > 0. But BLEND decrements 
CUafiENX_NEST_LE7EL^ Therefore, CURRENT NEST_LEVEL must 
eventually become < (actually -) I.) */' 

mend 

/* {Leona: if CUBfiENT_NEST^ LEVEL > 0 and 

[ REQD^NAME = ** or = BLOCK_TYPE (CUHREHT_NE ST LEVEL)] and 
BEQD_TYPE - B LOCKET YPE (CUBRENT_N EST_ LEVEL) , then 
ERBOa_OCCURBED will always be set false and CURRENT_NEST LEVEL 
will be unmodified- Proof: If the h^pothisixed conditions are 

true, the module calls THACE_P8INTKR and sets ERBOE OCCDBRED to 
fal^ as its only actions. TRACE^prihteh modifies no 
globals.J ♦/ 


• 0»0 * 0 * 0 • 0 * 0 • 0 * 0 * 0 « 0*0 « 0 * 0 « 0 * 0 « 0 • 0 * 0 « 0 • 0*0 


•o*o»o«o»o«o»o*o*o«o«o»o»o»o*o«o*o«o«o«o*o*o«o*o«o«o*o»o» 
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»C0HDITI0HAL^EXPBESSI0H_P80CESS0fi" f!acro — 9 July 1973 


9700U 

97002- 

97003, 

97004, 

97005, 

97006, 

97007, 

97008, 

£7009, 

97010, 

97011. 

S7012, 

97013. 

57014. 

S7015. 

97016. 

97017, 

97018, 

57019, 

57020, 

97021, 

57022, 

97023. 

S7024. 

97025- 

97026. 

97027, 

97028, 

£7029, 

S7030. 

97031, 

97032. 

97033. 

57034, 

57035. 

S7036, 

57037- 

57038, 

97039, 


m acro 


COHDITIONiL EXPRESSIOM PBOCBSSOB JFIBST.ID; ) , 

/• Process the positional operands (the SYSLIST) as passed directly 
from calling macro beginning with SYSLISl (FIBS T_m DEI) through 
S1SL1ST(L&3T INDEX) generating the indicated tests to pass control 
to ULTlflATE_PALlTHHO_LABEL when the ULTIMATE_FALLTHBlJ_CONDITION IS 
found to match the logical value tested and branches to the 
OLTlHAT£_BBAKCa_LABEL otherwise; the 0BIQUE_L ABEL_ID is used to 
insure unigue labels; if a branch is made to the f all^^through label, 
PALLTHfi0_LABEL_0SED is set ^ else Unaltered. Only the "SYSLIST'» 
operand Is passed as an actual macro operand. The other variables 
mentioned are glofcals. ♦/ 


COBD COUNT, /* Counts the simple conditionals within the 
conditional expression, */ 

DEPTH, /♦ Angle bracket nesting depth of simple conditional being 

processed. */ ^ • -i 

INDEX ^ /♦ Operand index within the SYSLIST of the simple conditional 

being processed, */ . • v 

OP COUNT, /♦ Number of suboperands in the simple conditional being 
processed, ♦/ 

NEXT_INDEX, /♦ Index of the AND or OB which follows the current 
simple conditional, ♦/ 

NEXT_DBPTH, /* Angle bracket depth of NEXT^INDEX. ♦/ 

LA_DBPTH, /* Angie bracket depth during operand look'-ahead* ♦/ 
j ~ /♦ operand index of operand being examined during 

look-ahead. */ 


AND_0R_0UTSTABDING , /* Indicates whether an AND or OB follows 
” the current simple conditional. ♦/ 
iOCAL PALLTH8U_C0NDJTI0N^ /♦ Logical value of the simple conditional 

being processed which is to lead tc control falling through the 
test, ♦/ 

LOCAL LABEL BEQD(20) /♦ Indicates whether the corresponding 

“ simple conditionals require a label due to branching logic, V 


char 

’’label# /* Outstanding label waiting to be generated, */ 

LOCAL BBANCH^LABEL /* Label for branch target if current simple 

conditional has the opposite truth value from that stored in 

LOCAL^FALLTHBO^CONDITION. ♦/ 
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"CON DITIONAL_EX PEES SION_PfiOCESSOfi» Macro — 9 J^ly 1973 


97041 . 

97042. 

S7043, 

97044. 

97045. 

97046. 

97047. 

97048. 

S7049. 

57050. 

S7Q51. 

97052. 

97053. 

97054, 

97055. 

97056. 

97057. 

97058. 

57059. 

57060. 

97061. 

97062. 

97063. 

97064. 

97065. 

97066. 

S7067- 

97068. 

57069. 

57070. 

57071. 

S7072. 

97073. 

97074. 

97075. 

97076. 

97077. 

97078. 

97079. 

97080. 

97081. 

97082- 

97083. 

97084. 

97085, 

97086. 

97067. 

97088, 

97089, 

57090. 

57091, 

97092. 

S7093. 

97094. 

57095. 

97096. 

97097. 

97098. 


caU TRACE^PBIMTEB ( ; *CEP*) 

/♦ Print macro name »CBP" in anote if tracing on. ♦/ 

LABEL 2= FIfiST_ID 

/* Set calling label as outstanding- */ 

COND COOBT 2= 0 
DEPTH ;= 0 

INDEX ;= FlfiST^INDEX 
Vhi le INDEX < LAST_IHD£X 
do ” 

call CEP_FIND^NEXT_CONDITI0N 

/♦ Steps INDEX up to next simple conditional incrementing DEPTH for any 
»<« found and setting ERflOR^occUflfiFD on any syntax error. Increments 
COND^COUNT for the condition found. ♦/ 
if EHfiOH_OCCafifiED 
the n 

AND_OB_OUrSTAHDlHG := falsa 
call CEP^LOOKAHEAD 

/♦ Find L0CAL_BHANCH_LA8EL or generate one. If LOCAL BRANCH LABEL 
is the ULTIMA TE_FAL1THB0_LABSL, set PALLTHRD_LABBL USED." Set 
LOCAL_FALLTHHU_COBDITtON. Also set NEXT INDEX and*^NEXT DEPTH with 
the INDEX/DEPTH of the AND or OR following this conditional. 

{The value of NEXT_IN0EX returned is greater than the value 
of INDEX entered.) ♦/ 
if £RROR_OCCURBEO 
then 

m exit 

li" 

if L0CAL_LABZL_R£QD (CCND^COONT) 
the 4 ' 

LABEL ;= BLOCK^LABEl^PfiEFIX |j UNIQUE LABEL ID H COND COUNT 
fi -r — _ 

OP^CODNT ;= N’SYSLIST (INDEX) 
caii SIMPLE_C0NDITI0NAL (LABEL; 

SYSLISr (INDEX, 1) , 

SYSLIST (INDEX, 2) , 

SYSLIST (INDEX ,3) , 

SYSLIST (INDEX,4) , 

SYSLIST (INDEX, 5) , 

LOCAL_BSANCH_LABBL, 

LOCAL_FALLTHRU_CONDITION, 

OP COUNT) 

LABEL := 

INDEX ;= NEXT^INDEX 
DEPTH NEXtIdEPTH 

oi /♦ (Termination: INDEX is incremented (by CBP L00KAHEAD‘s 

return of NEXI_INDEX) and LAST_INDEX is'fixed in loop; INDEX must 
eventually exceed LAST_INDBX.) 
if AND_Ofi^OUTSTANOIHG 
then 

*STRC9701 INSUFFICIENT OPERANDS*) 


mnot e (8 , 
fi 

if DEPTH # 0 
then 

mn Qte (8, 

fi ^ 

mend 


•SIRC9702 INSUFFICIENT BRACKETS') 


•0*0 • O*0«0«0*0*0< O* O* O •0*0* 0*0*0 *0*0 *o •© *o *o 


•O ■ 0*0*0 • 0*0*0*0*0*0* 0*0 *0*0*0 •0*0*0* 0*0*0* 0*0«0*0* 0*0* 
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«CONIHTlONAL_BXPBESSIOH_PfiOCBSSOR'» flacro -- 9 July 1973 


£7100. proc CEP_FIND_NEXT_COHDITIOH 

S7101. ’’ /♦ Step up to next simple conditional, incrementing DEPTH for any “<*' 

S7102. (or "+«) found. Start with SYSLIST (INDEX) and advance INDEX till 

S7103. found or LAST^INDEX- Set EflROR^OCCORfiED on any syntax error, 

97104, giving message. Increment COSD^CODNT by 1- ♦/ 


57 106. EEfiOE_OCCUERED f als e 

57107. while INDEX < LAST INDEX and (SYSLIST (INDEX) = •<» or - *+•) 

57108. dp 

57109. DEPTH ;= DEPTH + 1 

97110, INDEX INDEX ♦ 1 

97111, pd /* (Termination: INDEX is incremented, LAST^INDEX is fixed in 

97112. loop; INDEX would eventually exceed LAST^INDEX even if other 

57113. tests never occur.) ♦/ 

97114. if SYSLIST (IMDEX)i 1 , 1 ] ^ • (• 

57115. ':U»en 

97116. laate (8, *STSC9706 SYNTAX ERROR — LOORING FOR SIMPLE • || 

97117. 'CONDITIONAL, FOUND «* |'J SY SLIST (INDEX) |j '"») 

S7118. ERROR OCCORHED := true 

<7119. fi ^ 

57120, COND_COUHT := COKD^COUNI ♦ 1 

57121, corn 


4 0«0<0«0«0*0«0«0«0* 0«0*0»0*0«0»0«0«0*Q«0«0*Q«0*0*0*0*0«0«0«0*0«0*0*0«0*0«0«0*0»0*0*0»0«0*0«0*0*0*0* 
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"COKUITION aL_EX PRESSIOK_PfiOCESSOR« tlacro -- 9 July 19 73 


£7lJ^i3- ^roc CEP_LOOK AHEAD 

S7124- /* Search operands beyond current simple conditional. if AND/OB found, 

S7125. set AND^OR^OUTSTANDING- Find spot this test is to branch to and put 

97126- label found or generated for that spot into LOCAL_afiAHCH_LA&EL- If 

£7127- sane as ULTIMATE FAlLTHHIJ_LAeEL, set FALLTHHU^LiBEL^USED- Decide 

97128. whether this tesi is to fallthru op true or false and set 

S7129- L0Ch1_FALLTHRU_c0NDITI0n. If syntax error found during lookahead, 

S7130- give message and set EBROB^OCCURRIO- Also set NEXT INDEX and 

97131- NEXT depth with the index/depth of the AND/OR. V 


97133- 
57134- 
57135. 
S7136- 
97137. 
S7138. 
S7139. 
57140- 
£7141 . 
97142- 
97143- 
S7144- 
97145. 
57146- 
97147- 
97148- 
£7149. 
97150- 
97151. 
97152. 
S7153. 
97154. 
97155- 
97156. 
57157- 
97158- 
S7169. 
97160. 
57161- 
97162. 
97163. 
97164. 
S7165- 
97166. 
97167. 
97163- 
57169. 


ERBOB^OCCOBRED ;= false 
LA^DEPTH ;= DEPTH 
I T= INDEX ♦ 1 

while I < LAST_INDEX and (SXSLISTfl) = •>♦ or = •/') 
do^ 

I I ♦ 1 
if LA^DEPTH > 0 
the n 

LA^DEPTH ;= LA_DEFTH - 1 
else^ 

mnote (6, ‘STBCSICS SOPEBFLUOaS BBACKET IGNORED*) 

od /• (Ternina tion; I is incremented, LAST_INDEX is fixed in 

loop; INDEX would eventually exceed LAST^INDEX even if other 
tests never occur-} ♦/ 

NEXT_IHDEX ;= I ♦ 1 

/♦ {Leona: NEXT_INDEX > I > INDEX-} */ 

NEXT_DEPTfl ;= LA DEPTH 
if I > LAST_INDEX 
^then 

L0CAL_BBANCH_LA3EL := ULTIH ATE_flRANCH LABEL 
LOCAL“rALLTHaU_CONDITION := 0LTIMATE_F ALLTHBU^COHDITION 
el^ 

if SYSLISr(I) - »AND* or = *Ofl* 
thejj 

cali CEP^SCAN^FCB^BRANCH 

/♦ Search ahead for branch target. Set AKD_0S_0DTSTABDING, LOCAL 
FALLTHflU_CONDITION, and LOC AL_EB ANCH_POINT. */ 
els e ^ 

lisle <9# ‘STBC9703 SYNTAX EBBOB — LOOKING FOR «AND" Oft '»0R«, * |J 
♦FOUND II SYSLIST(I) || • '• * ) 

EBROB_OCCUBfiED ;= true 
fi 
fi 

corp 

/* {Lemma: The value of HEXT^INDEX returned is greater than the 

value of INDEX entered.) ♦/ 


«o«o*o*o«o*o *o*o*o*o«o •o«o«o*o*o ■0^0*0*0*0*0*0*0*0«0*0*:a*0*0«0«0*0*0*0« 0*0*0*0<a0«0«0*0*0»0«0*0»0»0» 
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9717K 

97172, 

S7173, 

57174, 

S7175. 

S7176, 

97177, 

97178. 

57179, 

57180. 

57181. 

57102. 

97183, 

97184, 

97185, 

97186. 


'»CONDlTIOBfiL_EXPfl£SSIOH_PKOCESSOB« Macro — 9 July 1973 


eroc CEP SCAN FOB BRANCH 

/♦ S3fSLIST(IJ is either «AND« or Set ANO_OB_OUTSTANDING, Set 

LOCAL_FALLTHflU_CONDITIOM according to current operation {AND or OR) . 
Continue scan over operands vntil sinple conditional is found which 
is target for tOCAL^BBA NCH^LABEL of current simple conditional; then 
generate LABEL and set LOC AL_LAB£L_,B£CD for target test. If no target 
test found set LOCAL_flfi AHCli_I.ABEL to either (a) the ULTIHATE^FALLTHBO^ 
LABEL (also setting FALLTHBD^LABEL^USED) or to (b) the ULTIf!ATE_ 
BHANCH^LABEL, depending on operation, V 

LOCKFOfl /♦ Operation ("AND** or "OB”) opposite of sySLIST(I). 

HAX^DEPTH, /* The naxinum depth at wh4.ch the LOOKPOB'ed 
operation is a possible branch target. */ 

TARGET /♦ Simple conditional number which is the target for 
the branch, */ 
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“CO«DITIOHiL_EXFBESSION_PBOCESSOB« Macro — 9 July 19*? 3 


0 


97188. 

S7189. 

S7190. 

97191. 

97192. 

97193- 

97194. 

97195. 

97196. 

97197. 

97198. 

57199. 

57200. 

97201. 

97202- 

57203. 

97204- 

97205. 

97206, 

97207. 

97208. 

57209, 

57210. 

97211. 

97212. 

97213. 

97214. 

57215. 

97216. 

57217. 

57218. 

57219. 

57220. 

57221. 

57222- 

57223. 

97224- 

57225. 

57226. 

97227. 

97228- 

57229. 

S7230. 

57231. 

57232. 

57233. 

57234, 

57235. 

97236. 

57237. 

57238. 

57239. 

57240. 

57241. 

S7242. 

97243- 

97244- 

97245. 

57246- 

97247. 

57248, 

97249. 

97250. 

57251. 

97252. 

97253, 

97254, 

97255. 

57256. 

97257. 

57258. 


AHD_QB_00TSIASDIBG ;= true 
if SYSIIST(I) = 'AND* 
then 

LOCAL FALLTHfiU_CONDITION ;= true 
LOOKPC6 := *0fl* 

MAX^DEPTH := LA_D£PTH 
else /♦ Operation is CB. V 

LQCAL_PALLTHBU CONDITION := false 
if LA^DEPTH « 0 ' 

the n 

I := LAST_INDEX ♦ 1 

/♦ Advance I to force skip of unnecessary search, */ 

li 

LOCKPOE ;= ‘AND* 

MAX^DBPTH ;= LA.DEPTH - 1 

I I ♦ 1 

TARGET := COND^COUNT + 1 
while I i LAST^INDEX and 

(SYSLlSTil) #“iCORFCfi or LA_DEPTH > MAX DEPTH) 

if SYSLIST(I) = *<• 2£ - 
the n 

LA_DEPTH ;= LA^DEPTH ♦ 1 
else 

if SYSLIST(I) = »>• or = •/' 

th^ 

if LA_DEPTH > 0 
tb en 

LA^DEPTfl t- LA_DEPTB - t 

fi 

else 


fi 


if SYSLIST (I)£1,1 J = » (’ 

fiisa 

TABGET := TABGET ♦ 1 
else 

2 SYSLISTd) *AND» * •OR* 

t hen ^ 

mn ote (8, *STRC9704 SYNTAX EEBOR — «• || SYSLIST(I) j{ 
•" INVALID*) 

HBROB^OCCGfiflED true 
I := LASI^INDEX > 1 ** 

/♦ Force break out of loop. ♦/ 
f i 
fi 
fi 


I I ♦ 1 

cd /* (Termination: I is either incremented or set to LAST_INDEI ♦ 

1; LAST^INDEX is fired; I would eventually exceed LAST_INDEX even 
if other teste never occurred. j */ 
if I > LAST_IKDBX 
then 

(LCOKFOB = *OR* /♦ Operand was AND. */ and 
-• ULTIMATE PALLTHBU.CONDITIOH) or 
(LOOKPOfi = •AND* /♦ Operand was“5H. ♦/ and 
DLTIMATE^FALLTHBO_CONDIT10H /♦ is true ) 

the n 

L0CAL_BEAWCH^LAB2L ULTIMATE FALLTHB0_LABEL 

FALLTHHU^LABEL^USED true 
else ' I ^ 

LOCAL_BBAHCa_LABBL := ULTIMATE EHANCH LABEL 
fi - - 

else 

LOCAL^BBANCH^LABEL BLOCK^LAEBl PREFIX tl UNIQUE LABEL ID II TABGET 
LOCAL_lABEL_BEQD(TAEGET) true 

/♦ Note that we are relying'on the automatic initialization of the 
LOCAL_LABEl_REQD array to' fals e at start of every invocation of 
CONDITIONAL EXPBESSION PROCESSOR. ♦/ 
fi ' 


c orn 


• o«o»o«o«o •o«o»o»o« o»o •o*o*o*o*Q*o« 


©♦o*o«o*o*o*o*o»o*o*o»o*o«o*o*o*o«o*o»o*o*o*o*o«o*o»o*o»o«o«o»o* 
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«TZBHINATB_DO_LOOP” iiacro 


26 Juoe 1973 


9aooi. 

98002. 

98003. 

98004. 

98005. 

98G06. 

98007. 

9B008. 

58009. 

98010. 

98011. 

98012, 

98013. 

98014. 

98015. 


macro TE8 MIN ATE_00_tO0P ( ; ) 

/* Called by OD macro to terminate the current DO block loop by 

generating the necessary loop-tenninatiug branches. If control 
can fall out of the bottom of the code at loop termination, set 
TDL_FALlTHa0_OCC0aS to true; else set fal se. ♦/ 

' LB_LA0EX.^flEQ /* Indicates whether label reguired on looping 
branch instruction, ♦/ 

ch,ai: 

X, /* Temporary string. V 

LABEt, /♦ Holds looping branch label. ♦/ 

BRANCH8, BRANCH to, BRANCH 11, /♦ One character codes for flow points 
which are targets for flow points 8, 10, and 11. V 
LB_OPCODE, OPEfil, 0PER2 /♦ Opcode and operands of looping branch 
to be generated. ♦/ 


98017. 

98018. 

SB019. 

98020. 

98021. 

98022. 

98023. 

98024. 

98025. 

98026. 

98027. 

9602B. 

96029. 

98030, 

98031. 

98032. 

98033. 

98034. 

98035. 

98036. 

98037. 

98038. 

S8039, 

98040. 

98041. 

98042. 

96043. 

98044. 

98045. 

98046. 

98047. 

96046. 

98049. 

98050, 

96051. 

98052. 

96053. 

98054. 

98055. 

98056. 

98057. 

98058. 

98059. 

98060- 

90061. 

98062 . 

98063. 

98064. 

96065. 

98066. 

98067. 

S8068. 

58069. 

98070. 

98071. 

90072. 

98073. 

98074. 

98075. 


^11 TEACE_PRINTEB( ; *IDL») 

/* Extract the following stored By DO macro: V 

X := INFOBMATION (CHERENT^NB5T_LEVEL) 

BRANCH 0 Xl 1 ,1 ] 

BRANCH 10 X[ 2, 1 J 

BRANCH 11 i[ 3, 1 J 

LB_LABEL_BEQ := X[4,l] 

0PER1 := OPERAHDl (CURRENT^NEST^tBVEL) 

OPEB2 := 0PBBAND2<CURRENtIhEStIlEVEI.) 

LB OPCODE OPERAND! (CURiBNT^NBST_LEVEL) 

BLOCK_LABEi_PSEFIX := '$• || BLOCK.NUMBEB (CURBEST.NEST.LEVEL) 

if LB_LABEL_fiEQ 
'th^ 

LABEL BLOCK_LAB EL_ PREFIX 1| ’LPEM 


f i 

’ /♦ Generate all looping instructj-ons. */ 

do case BRANCHS o nly 
of 


£§se (*W*, 


•U») 

(' 


B « n BLOCK_LA01L^PREPIX || BRANCHS || 




esac 

ca^ ( • B * ) 

gepe rate <• B ' II BLOCK_iABIL_PRE?IX |J »BEG*J 

es^c 

ca^ TL') 

/♦ Nothing to generate; fall through to looping branch, */ 


esac 
esacod 

TDL^FA LLTHBU^O'CCURS := false /* Assume we will always branch. •/ 
if LB_OPCODE% 

' then /♦ A looping branch is required. */ 

TDL FALLTHRU OCCURS := ^ue 

“/* hark that we will fall out of the looping branch. */ 

Xf BRANCH10 = *B' 

X »BEG* 

els e /* BEANCalO = *»• or 'P*. ♦/ 

X BEANCHIO II M * 

u 

if LB_OPCODE = *BCT* 
the n 

ge nerate (LABEL | | • 

X) 

els e 

g enerate (LABEL | | 

OPEB2 II ■ , 

if BRANCH11 / 
the n 

/♦ It must be or looping branch fall-through is not to end 

of loop; generate branch to proper alternative conditional test. ♦/ 
generate (* B ’ || BLOCK^LAB£L_PEBPIX j| EBANCH11 || ' ) 

TDL.FALLTHBa.OCCUBS false 

/* Branch defeats fall through. */ 

U 
U 


BCT • II OPEB1 II 'r* II BL0CK_LABEL_PBEFIX || 


• I I LB_OPCODE 1 I * 

I I BLOCK_LABEL_PBEFIX 


I 1 OPEH1 II *, * II 


1) 


mend 

/♦ (Lemma; TEflMINATE_DO^LOCP does not modify 
CaHBENl_HBST_LEVEL.} */ 


• 0 * 0 * 0*0 * 0*0 •o«o«o^o*o*o«o*o*o«o*o*o*o*o*o»o«o«o»p«o«o*o»o«c*o*o*o»o*o»o*o«o*o*o*o»o*o* o* o*o»o»o»o« 
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fXfiEX" 

ttacro -- 19 Decejnber 1973 




S900 1- 

macro XHEX ( ; > 





99002, 

/♦ Converts the 

integer in 

HEX_IN to a two“Character hex string in 

99003, 

HEX OJI- V 





99004, 

int I, 0 /♦ Temporaries. */ 




99006, 

call TRACE_PBINTBR 

{ ; 'XHEX' 

) 



99007- 

/* Print Ddcco 

name "XHEX" 

in maote it tracing on. 

V 


99008. 

it HEX (1) # *0* 





99009. 

then /* Hex array 

must be initialized. */ 



99010. 

HEX(1) ;= '0* 

HEX(2) 

»T HEX (3) := 

HEX (4) 

:= »3* 

99011, 

HEX(5) »4» 

HEX<6) ; = 

»5< HEX (7) := *6* 

HEX (8) 

:= n* 

S9012- 

HEX(9) »8' 

HEX(10J : = 

*9* HEX«11) ;= *A' 

HEX {12) 

:= *B' 

99013, 

HBX(13) := »C» 

HEX<14) ;= 

•D' HEX05) ;= *E* 

HEX (16) 

»F» 

99014. 

£i 





99015, 

I := HEX in/16 





99016. 

J HEX_IN - 1*16 

♦ 1 




99017. 

HEX^OUT T= HEX (I + 1) 

n HEx(j) 




9 9018. 

mend 






•C*0*O*O*O •0*0«0»0»0«0 •0«0«0»0*0»0»0*0«0«0«0«0*0<)0*0*0*0«0«0*0*0«0*0*0*0*0®0^0*0*0«0*0®0«0*0«0*0«0« 
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CR0S5-BEFEBEMCE LISTING 


AND_Ofi OUTSTANDING 
ANI_COHP_CA3ES 
ANT£_BEGS^SAVED 
ANI^SZLFDEF_CASES 
a TEND 

ATBND_G£NNED 

EASE 


EASE2EG 

EC_TAG 

ECK_ABEA_BEQD 

ELENO 

BLOCK 

flIOCK_lABEL_PREPIX 


BLOC K_ NAME 


ELOCK_BAH£_VALUE 
BLOC K_ NUMBER 


BLOCK_TBAC ENCOUNTERS 
BLOCK_TYPE 

BLOC K.TXPEnV ALU E 

EEANCH^LABIL 

EBANCH^TO_CASE1 

ERAHCHIO 

E£ANCh11 

EBAKCH8 

BIO 

E11 

B8 

CASE 

CASE_ASSUMED_VECTOR_CASE 

CASEnBCT^GEN 

caseIccndtesTnGen 
CASE CCUNTBH 


CASE FORHAI 


CASEnGENnCOMPARE 

C A SE ”g Et”d OC as EnI NP 0 

caseIlabel_reqd” 

CASEnHISC process 
caseIoccors 

CASE.ECSinON^CHECK 
CASE_PB0CE5S_C0HPAfi E_OPERANDS 
CASE_PBOCESSnVECTORnOP BRANDS 

CAS£nSETn« A rtis 
caseItbace_coonter 


□DEFINED #Modified 


□97028- 

•97058- 

97090- 

*97188- 




□37021- 

37123 - 

37160- 

37170- 

•37196. 

37281 . 


□ 830 19- 

•83168- 

831S7. 

83323, 

83393. 



□37023. 

37114- 

-37194. 





□23001, 







□23009- 

■23035- 

23037, 





□33363- 

•33367. 

33406- 

33449- 

□37013- 

•37197- 

37210, 

37254- 

37266- 

*81001, 

81621- 

81621- 

81623- 

81650, 

81652. 

81656- 

81683. 

81689. 

81691. 

81979. 


□81617. 

•81623- 

81625. 

•81628. 

81630. 

•81634. 

•81645- 

B1673. 

81676- 

81681, 

01006. 




□94014. 

•94025. 

94058- 

94062- 

94065. 



□ 83023- 

•83250- 

83457- 

83469- 




♦ 13001. 

13020- 

33143- 

33150- 

33151- 

□43001. 

53017- 

96026- 

96033. 

96034, 

96066, 




33056- 

□41001- 






□ 158- 

11 085- 

11106, 

11109- 

11146. 

11154- 

11225- 

11228. 

11233. 

11255- 

21103- 

21568. 

21573- 

21578, 

21648. 

21650- 

21654. 

21659, 

21662- 

21666- 

21666. 

21669. 

21685- 

21687- 

21691, 

21760- 

21767- 

21848. 

21851- 

21852. 

21854- 

21857. 

21858- 

21866. 

21867- 

«23042. 

23052. 

23058- 

•25049. 

25057- 

25060. 

25064. 

31 1 96. 

31245. 

31255- 

33207. 

33215. 

33500. 

33529. 

33573- 

33576- 

33588- 

33589. 

33599- 

37077- 

37078. 

37080- 

• 37102. 

37140. 

37141- 

37144- 

37145. 

37147. 

37156. 

37161- 

37164, 

37167- 

37216- 

37268. 

37278- 

37285. 

37286- 

37288- 

41038- 

41041. 

41043- 

41045. 

41054- 

•81 158, 

01365- 

81433, 

81459. 

01561- 

B1657- 

81672. 

81685. 

81744. 

01000- 

61803. 

81840. 

61843- 

81651. 

01853- 

81858- 

81889. 

81900. 

81917. 

81919, 

81932- 

87936- 

81941- 

81973- 

81970. 

81981- 

83114- 

♦ 831 72. 

•83174. 

83245. 

83251- 

83253- 

83331- 

83448. 

83452- 

83459. 

03461- 

83464- 

83471- 

83477- 

834 78. 

83498- 

•93045- 

97072- 

97252. 

•98027- 

98030. 

98036. 

98039- 

98058. 

98062- 

98068- 




□ 212. 

11215- 

11250- 

13039. 

21661. 

31251- 

33594. 

41049- 

43022- 

53014. 

81160. 

81377. 

91015- 

91023. 

91030. 

91037. 

92033- 

•93040. 

• 93043. 

93057. 

96045. 

96065- 







♦ 93001- 

93040. 

93041- 





□ 203. 

13048. 

23042- 

25049- 

27041- 

33179. 

35030. 

37102. 

83174, 

91053. 

92011- 

92023. 

92032. 

•93031. 

98027- 







41018. 

□41029- 






a 215- 

33135- 

33140- 

33147- 

43034, 

91016. 

91042. 

91049. 

•93033. 

93047- 

96019- 

96022- 

96029- 

96055. 

11023- 

13055. 

21077- 

31043- 

33059. 

41009. 

61053. 

♦93002- 

93033- 

93048- 





♦94007- 

94058. 

94063, 

94065- 




□31009. 

•31199- 

31232- 

•31246, 

31271- 



□98012- 

•98021- 

98050. 

98054- 




□ 98012. 

•9B022. 

9 8064- 

98068- 




□ 98012. 

♦98020- 

98033. 

98036- 




□ 21776. 

•21781. 

•21805. 

•21008- 

• 21811. 

21828. 


□ 21776. 

•21781, 

•21818. 

•21821- 

• 21824. 

21828. 


□21776- 

•21780. 

•21789. 

•21793. 

•21796- 

21828. 


□ 33001. 







33427- 

□33434- 






331 10- 

□33473. 






33113- 

□33494- 






□33011- 

•33165. 

♦33168- 

33168. 

33408. 

33467. 

33469'. 

33482- 

33485. 

33489- 

33544, 

33577- 

33581- 

33613. 

□37009. 

37072. 

•37C96. 





□ 31023- 

3.1057. 

31063. 

•3 1088- 

•31102- 

•31104- 

•31141. 

31174. 

3tl94. 

31210. 

3 1236- 

31268. 

□33D38. 

33087, 

33096. 

33108- 

•33171- 

33197. 

33283. 

33330- 

□37028. 

37060- 

37065- 

•37CS8, 





33229. 

□33262. 






33071- 

□33158. 






□330 17- 

•33174- 

33221, 

33465- 

33541- 



33084. 

□33535. 






□ 240- 

•31214- 

•33406. 

•33449- 

37210. 

37254. 

37266- 

3305Q. 

□33129, 






33091- 

□33182- 






33098. 

□38356- 






33104. 

□33459- 






33118- 

□ 33565. 







^^Faraoie ter 


C-119 



CBCSS-fiEPERENCE LISTISG 


CASE^UPDATE^INFO 
CEP_FIND_NEXT_COSI)ITION 
CEP.LOOKIHEAD 
CEP^SCAN FCR BfiANCH 
CCft»A2 

C0MP_1ABEL 

COMP^LABEL^NO 


COaD^COUHT 

COHDmCNAL_EXPRESSlO!l PROCESS 
COEP 

COfiP_DEBUGGIBG_STOaES 

COaP^FfiEE,DYNAM_SAVEAREA 

COBP_6BN^CfiP^BCK_AREAS 

CORP_GEN_EXIT_LABEL 

CORP_GBT3PfiOC3l HFO 

COBP_RESTOHB_DEBaG EF7IRONMENT 

COBP^RESTOBE^HEGISTEBS 

COBP_fiESTOBE~aEGl3 

COBP“SAVB_BETORNIBG REGS 

C0RP_S£1.HES10HE_BANGE 

CORP^SEl fiETDRN CODE 

CC0S5_SPOT 

CRP_BCK^Of FSET 

CURBEHI^NEST LEVEL 


CE6UG 

DEBUG^BLOCKCOUNIS^BZQD 


E£BUG_BL0CKBA«ES_BE CD 


EEBUG_CORPVALUES_REQD 

D£flDG_DEBUGHACBOS_RBQD 

£EBOG_IISTBLOCKS_REQD 

DEBOG^HACaONAflES REQD 
lEBUG^PfiOCCODNlS^^RECD 

£E BO G_PRCC MAKES EEQD 
£EBUG_PBCCTRACE]^REQD 

E£BDG_SAVETEACE_REQD 


DEPnS 

DO 

DO_BHAKCH_FOR_LOOP_ENTBY 
D0_F1ND_£MC_INDEXES AHD MAIN O 
DO_FlND_KEY«OEDS_AND_PRESEWCB 
CO_GEKEflATE_ALL_CONDITlOB)Al TE 
I 0_G E K EMIT E_ CONDITIONAL SET^ 
DO_INFO_SAVE 


33121. 

□33604- 


97050- 

□ 97100- 


97059. 

□97123. 


971 56. 

□97171- 


□ 81024. 

61466. 

8 14*69. 

• 83214- 

83400. 

83405. 

□33043. 

•33223. 

33253. 

• 33307. 

•33321. 

33522. 

□33013. 

•33192. 

33223. 

33321. 

37288, 

□37011 . 

37144. 

*97013- 

-97045, 

9707Q, 

11180. 

21719. 

33507. 

43049. 

□83001. 


83096. 

□83219. 


83092- 

□ 83361. 


83130. 

□83436. 


83082. 

□83488. 


83074. 

□83148. 


83140. 

□83416. 


831 17. 

□83388. 


03087. 

□83259. 


83105. 

□83314. 


83079. 

□83185- 


83101. 

□83278. 


□ 81669. 

•81922. 

•81924. 

□ 83225. 

•83235, 

•83237. 

□ 200. 

11148. 

11215^ 

13038. 

13039, 

13046. 

15028- 

15031, 

21097- 

21861, 

23021. 

23034. 

250 21. 

2S034. 

25042- 

27030. 

27041. 

31251- 

31270. 

33135. 

33139- 

33594. 

33609. 

35007- 

37097. 

37098. 

37C99. 

43011. 

43015. 

43019t 

61160. 

81377. 

81951. 

83052. 

83152. 

83153. 

83492. 

83505. 

91012. 

92009. 

92011- 

92013- 

92034. 

•92038. 

92038. 

93032. 

93033- 

93034. 

93039. 

93040. 

93043. 

96013. 

96018- 

96019. 

96044- 
980 27- 

96061- 

96065. 

• 81002. 

81 194. 

81196. 

a 173. 

11136, 

11220. 

21846. 

21864. 

31230. 

41033- 

41035. 

41052. 

81896- 

81908- 

•83428. 

□ 175. 

11213. 

11220. 

31249. 

33568, 

33592. 

•81208. 

♦81275- 

•83425, 

□ 177. 

83444. 

B1190- 

•81254. 

□ 179. 

•81295. 

•81300, 

□ 181. 
93053- 

81186. 

•81220. 

n 104. 

•81287, 

•81292. 

n 187. 

81 149. 

81188. 

615B3. 

81895. 

01908. 

□ 189. 

81 185. 

•81211. 

a 191. 

81148. 

01 189- 

81609. 

81871- 

•83430. 

□ 19 3- 

81 147. 

81191- 

81562. 

81711- 

81728, 

• 83432. 

83454- 

83474. 

♦ 97015. 
□ 21001. 

•97046. 

•97086. 

21 1 07- 

□21560. 


21142. 

□21222. 


21137- 

□21160. 


21110. 

□21584. 


21610- 

□21695. 


21116. 

□21773- 



-81489. 

83409. 

•81510. 

□83035 

33200- 

33298. 

33301 

33249. 

33258. 

•33308 

37147. 

• 37195. 

37196 

97072. 

□97001. 

•97120. 

97120 


81932. 

81936, 


83246. 

83252. 


11250- 

13016. 

13029. 

13048. 

13049. 

15007. 

21828. 

21835. 

21836. 

23042. 

23056. 

23059. 

25049. 

25065. 

25068. 

31266. 

31267. 

31268. 

33140. 

33146. 

33147. 

35028. 

350 30. 

37040. 

37100. 

37101. 

37102. 

53008. 

53010- 

53014. 

81952. 

81953- 

01954. 

83154. 

63166. 

83167. 

91030. 

91043. 

91044. 

92021. 

92023. 

92032. 

♦93022. 

93022. 

93023. 

93035, 

93036. 

93037. 

93046. 

93047. 

93057. 

96021. 

96022. 

96028, 

98019. 

98024. 

98025. 

81278, 

81303, 


11222. 

11253. 

21099. 

31253- 

33568. 

33570. 

81187, 

•81228. 

•81233. 

11248. 

21644. 

21859. 

41033. 

41047-. 

81184. 

•01260. 

♦81277. 

83230, 

*81225- 

*81275. 

•83427. 

95004. 

*81236. 

♦ 81241. 

•81276. 

83238. 

♦ 83429. 


•81217, 

•81275. 

81363. 

•81245. 

•81251. 

♦81276. 

• 81319. 

•81327. 

•81333. 

61910. 

81939- 

83112. 

97094. 

• 97 1 09 . 

97109. 


aDEf INED 


« Modified 


*Parameter 


•83194, 

33305. 

33308, 

37285. 

97205. 


13034. 

15026. 

21837, 

23063, 

27014, 

31269. 

33164. 

37096. 

41049. 

55006, 

81957. 

83174, 

92007. 

92033. 

93031. 

93038. 

93057. 

S6029. 

98026. 


21844. 

33597. 

•81276. 

31230- 
• 81202. 

• 83431. 


92030, 


81574. 

•834 26. 
81746. 

81429. 
832 32. 

97134. 


C-120 



CfiOSS-fiEFBRENCE LISTING 


LO_LflB£t^BLOCK 

21114. 

□21754. 






do^looping bbanch and first 

OP 21147- 

□21302. 






DO^LOOPIHG D ranch''? HOC ESS 

21369- 

□21374. 






CO,SCAN_OPERANDS 

21090- 

□21127. 






D0_SE1_F0KMAT 

21153. 

□21436- 






DO_TfiACE_CON»TEBS 

21119, 

□21840. 






EO_UilTILlPOSTPROCES S 

21621, 

□21738, 






do_until”preprocess 

21594. 

□21638. 






DO_W HI LE'pRE PROCESS 

21596. 

□21675. 






EOCASE 

□ 31001- 







DOCASE^DEbUG STUFF 

31071. 

□31226. 






cocaseIextract operands 

31054. 

□31082- 






DOCASE_GENEfiAL_SETUP 

31065. 

□31187. 



- 



DOCAS£_I«DtA_TO_flEG 1 

31059. 

□31149. 






DOCASE_INFO_SAvi 

31073. 

□31261. 






DIBAMIC SAVEAREA 

o83021. 

83090. 

•03164. 

83264- 




ELSE 

♦11001. 

11024, 

11123. 

□13001. 




BLS£_BLOCK^NO 

□13008. 

•13042, 

13044. 





end^Iabei be CD 

□ 206. 

•11148- 

•21C97. 

23056, 

•23059. 

92009. 

• 93039. 

£ND_IABEL_VALUE 

11025. 

13057- 

31044. 

*93008. 

93039. 



EQUAL_TEST_Ot)TSTAMDING 

□33022. 

•33194- 

33205, 

• 3321 1, 

33245. 

•33312. 


EfiaOR_CCCUBBED 

□ 144. 

11030- 

1 1 149, 

•1 1157. 

13025. 

15022- 

21061. 


23030. 

25030. 

270.26, 

31048. 

33053. 

33063. 

•33134. 


•33138. 

•33144. 

•33152. 

3 5019. 

37052, 

37112- 

•37191. 


•37193. 

41013. 

55C14, 

81057- 

B3067. 

•91010. 

•91025. 


• 91047. 

•93021. 

•93027, 

•96010. 

•96016. 

•96030. 

•96053, 


♦ 96059. 

97054. 

97066, 

•97106- 

• 971 18. 

•97133. 

•97164. 


♦ 97228- 







ESAC 

□ 35001- 

43043. 






ESACOD 

□37001. 

43046. 






ESACOD_BBVCT_GEH 

37177- 

□ 37236- 






ESACOD_GENEBAL CASE CHOICE 

37062. 

□37105, 






ISACOD_GENEBAt_CASE|[lNEO 

37109. 

□37162, 






ESACOC GENERAL SyMB^ONLY 

37125. 

□37135, 






£SACOD_INFO ONPACK 

37056- 

□37093, 






ESACOU“CUT_OF_RANGE CHECK 

37173. 

□37202. 






ESACOd's ELIDE? GEN 

37116. 

□ 37151, 






EXIT 

*11001. 

11040- 

11130, 

□55001, 

♦ 61002. 

81136. 


EXIT FIND 

11130- 

55010. 

□91001- 





EXIT LABEL 

□11016. 

•11138. 

11231- 

1 1236, 

11241, 



IXIT_LABEL_REQD 

□ 206. 

13046, 

•13049, 

25042. 

• 25065, 

83492. 

•83505. 


• 91055. 

92013- 

92021, 

•93032- 




iXIT^SEVERITY 

□ 160. 

•81136. 

83499. 

•83501- 

83503. 

920 15. 

•92017. 


92019. 







EXIT^TABGET 

*55001. 

5S010- 






FALLTHRU CONDITION 

*94008. 

94049. 

94060. 





PALLTHSU_LABEL_OSED 

□ 256. 

•11113- 

♦11155, 

11198. 

21627. 

•21704. 

•21749. 


• 33502. 

33527- 

♦97247, 





PI 

11072. 

□15001- 

43037. 





flH_LABEL_REQD 

□230 14. 

•23045- 

•23053. 

23067. 

□ 25014. 

♦25047. 

•25061. 


25072. 

□27 007. 

•27032- 

27039. 




ilNAl 

□ 53001, 







FIRST 

□ 81027. 

•81424. 

81465- 

B1468. 

81469. 

81470, 

•81493, 


•81500. 

•81504. 

81781. 

81951. 




FlfiST^ID 

□ 21069- 

•21654, 

•21691. 

2 1707. 

•21711, 

21719. 

*97001 . 


97043. 







flBST^INDEX 

p 247. 

•1:1173. 

•21646. 

•21683- 

•33503. 

97047- 


fibsxIfhoc 

□81010. 

• 83138- 

81314. 

81728. 

81746. 

81809- 

81896. 

f IBST^BEG^SAVED 

□83033. 

•83152. 

63168. 

83178. 

83191. 



eibst*rest_value_knonn 

□83026. 

•83195. 

•83208. 

63395. 




FIRST^SAVEAREA REG 

□83013, 

•83178. 

•83180. 

83335. 

83349. 

83363, 

83402. 

FIRSI^VALUE^KNONN 

□81012. 

61462. 

•81487, 

•81506, 

81511. 

81599, 

819 58, 


□ 63024, 

•83165, 

83176, 

83195, 




FHD^PIR 

□ 61636. 

•81851. 

81655, 

81856. 

□ 83441. 

•83459. 

•63461. 


63466. 

•83477. 

83479. 

83483. 




GCASE_NEST^LEVEL 

□ 233. 

•31201. 

31201. 

3 1202, 

31204. 

31206. 

31206. 


31221. 

33089. 

33192. 

33258. 

33367. 

33400. 

33402. 


33442, 

33448. 

37067. 

•37069, 

37069. 

37187 . 

•37188. 

GCASE_NEST_L1MIT 

□ 236. 

31202. 

31222, 

33089. 

37169. 

•93019. 


GLOBAL 

□81173. 

•81182. 

•81199. 

81336. 




GPRO_OFFSET_STRING 

□83032. 

•83158. 

•83161, 

83366. 

833 70. 

83406. 

83410. 

GUESS 

□ 33440. 

•33442. 

33444. 

•33446. 

334 48. 

33449. 

33450. 


33455. 







HEX 

□ 162. 

99008. 

•99010. 

•99010, 

•99010. 

•99010. 

•99011. 


•9901 1. 

•99011. 

•99011. 

•99012. 

•99012. 

•99012. 

•99012. 


•99013- 

• 9,9013. 

•99013- 

*99013, 

99017. 

99017. 


fcEX_IN 

□ 141, 

•33581. 

•81155- 

99015. 

99016. 




oDEFINED •Modified ♦Parameter 


C-121 



} 


CRCSS-fiEFEPENCE LISTING 


HEX_OUT 

BOLD 

I 


ID 

IP 

IF_ASINCH_BBANCH 

if“block_coubt 

If^CONDlTION AL^GENEBATOB 

if1exit_label 

IP_EXII_SPECS 

I F_S ET_CON DITIO N TES T^SPECS 

INCP 

INDEX 


INDEX ADDR 


IKDEX_LENGTH 

IKDEX_SANGE_ASSORED 

INDEX^REG 

INDEX_TyPE 

INPO 


INPOBfiATION 


INFORM ATION_ VALUE 

1NLINE_SAVEAREA 

INSERT 

J 


LA_DEPTH 


lAEEl 


dDEFIred *Hodified 


o 163- 

33583- 

33585. 

□ 11121. 

•11128. 

11139. 

□21038. 

•21173- 

21175. 

21191, 

21194- 

•21198. 

21246- 

•21249- 

21250- 

• 21313, 

21316. 

21319. 

21342. 

21345- 

□31192- 

31215- 

□33015. 

•33191- 

33201. 

33203, 

•33240, 

33292- 

33299. 

33302. 

33335, 

33337. 

33341, 

33376. 

33381 . 

33383, 

•33469. 

33470- 

□37185. 

37195. 

37197. 

□37238- 

37268. 

•37272, 

37272. 

•43024. 

43024- 

43027- 

81196. 

01278. 

81303- 

81466. 

□61540. 

•81569. 

81652. 

61656. 

•81660. 

• 81692. 

B1692. 

□81948- 

81979- 

•81984. 

81S84, 

83359. 

63360. 

83365. 

• 83374- 

83374. 

□83391. 

•91012- 

91015. 

91015. 

91023- 

91035. 

91037. 

910 53, 

91055- 

□96006, 

96047. 

96050. 

96055. 

97136, 

•97138. 

97138. 

97189- 

•97198, 

•97204- 

97213. 

97220. 

97224. 

97239, 

□99004. 

•99015- 

*81001. 

81362. 

81362, 

814 08., 

81410. 


□ 11001. 

11044. 

□11076. 


11061. 

□11206. 


11057- 

□11163, 


□ 13011, 

•13048. 

13059. 

11052, 

□11116. 


11046. 

□11090. 


□ 37238. 

•37248- 

♦37250, 

♦31001. 

31 100. 

31105- 

31134. 

31166. 

31170. 

97048- 

97074. 

97076, 

• 97085, 

97107, 

97107- 

97135. 

□31031- 

•31155. 

•31180. 

33296. 

33301. 

33325- 

37207. 

37225, 

37229- 

□ 31018. 

•31123, 

•31139. 

33347. 

□31012, 

•31092, 

•31115. 

•33561. 

33611- 

□37018- 

□31016, 

•31128. 

•31131- 

□ 31020- 

•31129, 

•31134. 

31156. 

□ 23017. 

•23034, 

23035. 

□25017. 

•25034, 

25035. 

□27010. 

•27030, 

27031. 

□ 221. 

•21820. . 

23034, 

•31270. 

33173- 

•33610. 

83154. 

91043. 

91044. 

*9300 7- 

93038. 


□81614. 

•B1624. 

81625. 

□ 33276. 

• 33285. 

•33290. 

•33343- 

33348. 


□ 31192- 

•31208. 

31209. 

• 81661. 

81661 , 

•01687, 

•81977- 

B1962, 

•81985, 

♦97024- 

•97134. 

97139, 

97196, 

97 202, 

97207, 

97217. 

□ 11018. 

•11038. 

1 1064. 

• 11200. 

•11202. 

11225. 

□ 21067. 

•21089, 

21101. 

•21569. 

21573, 

•21574. 

21711. 

21714- 

•21717. 


81157. 

•99017. 


21177- 

21181. 

21184. 

21190- 

■•21240. 

21243- 

21251- 

21253. 

21288. 

21320- 

*21333, 

21336- 

•31209- 

31212, 

31214. 

33195. 

33198. 

33199. 

33240. 

33280. 

33286. 

33310. 

33314. 

33316. 

3 334 B- 

33350. 

•33371, 

33388. 

33393. 

•33423. 

•37137- 

37180- 

37189. 

•37257. 

•37260, 

37264. 

□43007. 

•43019. 

43022- 

43034, 

□81180. 

-81193. 

•81306, 

81306. 

□81422- 

B1570. 

□81619. 

•81649. 

81660. 

• 01688, 

816B9. 

• 61955- 

8195B, 

□81966, 

□0^321. 

*833 54. 

83355. 

83366- 

83359, 

83370. 

•03397. 

83398, 

83398. 

91016- 

*91018. 

91018- 

91042. 

91049- 

91049, 

•96044. 

96045. 

96045. 

96061. 

♦97025. 

•97135, 

97148, 

S7151. 

97156. 

97204, 

97206. 

97207. 

97226. 

• 97229, 

•97235- 

99016, 

99017. 


81369. 

91396. 

81403- 


37260. 

37272. 


31107, 

31108. 

31128. 

31178. 

31100. 

*97017< 

97077. 

97078. 

97079. 

•97110. 

971 10. 

97114, 

31267. 

□33041. 

•33170, 

33347- 

33350. 

□37030, 

37240. 

37244- 

37254, 

3 1269. 

□33046. 

•33172, 

3 1271. 

□33019. 

•33178, 

•37101. 

37170- 


3 1159, 

31161, 


31137, 

31139. 

• 31140, 

23043- 

23045. 

23063, 

25047. 

27032. 

25050. 

25068, 

• 23063. 

25034- 

•25068, 

37099. 

37100, 

37101. 

91049. 

91051. 

• 93038, 

81632. 

81664, 


•33294. 

33299. 

•33332 

31212. 

□81619. 

• 81648. 

81691. 

*81693. 

81693, 

a 1985. 

□99004. 

•99016 

-97141. 

97141. 

97150 

•9721 1- 

97211. 

97215 

11066. 

11085. 

• 11007 

• 1 1226. 

11240, 

• 11243 

•21102- 

21 121. 

21123 

21578. 

• 21579. 

• 216 29 

21760, 

21763, 

21765 


^ParaoieteE 


21187* 

21244. 

21292. 

21341. 

•31215. 

33200. 

33288- 

33327- 

33372. 

33423. 

37193- 

37266. 

43022. 

81194. 

•81464. 

81650. 

81691. 

•81976. 

83359. 

83371. 

□91006, 

91022. 

91051. 

•96047. 

97136. 

97163. 

97209. 

97235. 

81406. 


31132. 

•97047. 

97080. 

97117. 

33270, 

•37097. 

37276. 

33299. 

33558. 


•31144. 

23066. 

25070, 

27030. 

•81957. 

98019. 


•33339. 

81657. 

□81966, 

99017. 

97193. 

•97217. 

11180. 
•11246, 
21568. 
21705. 
• 21767. 


C-122 



CfiOSS^BEFEflEHCE LISTIHG 


lABEL 


lAST 

liST_ABEA 

LAST_BLOCK_M[JMBEE 

LAST^IMDEX 

lAST^flEG^SAVED 

lASTOF 

IB 


1B_1ABEI_BEC 

IB_LOGJC_OP 

LB_OPCODB 

LB_OPCODE_ID 

IB_OPEBA8Dl 

LB_OPEBAND2 

1BK6TH 


LIBIT 


10CAL_BEL 


LOCKFCE 

LOOPI NG_BB AfJCH_TY PE 

BACfiO_HAflE 

BAIK_OP 

a4MA_B10CK_PfiEFIX 

HA5K 

KAX_CASE_V ALUE 

haxIdeptb 

b&x_sb_value 

P ISC_FCUUD 
HGB 


<cont.) 21848. 

31076. 
31176. 
33123- 
334 76- 
•33574. 

• 37233. 
•37263. 

41043. 

81094. 

81459. 

• 81658. 
81738. 
81322- 
81877- 

• 81906- 

• 81942. 

• 83115. 

• 83135. 

• 83275. 

• 83340. 
83383. 

• 83450. 
94035- 

□ 9801 1, 
□81027. 
•81523. 

□ 83439. 

□ 139. 
93056. 

□ 246- 
97136- 

□83033. 

□ 21041. 
21232- 

□21039. 
21400. 

• 214 17. 

□ 21046. 

□ 21061. 
21494. 

□ 98014. 

□ 21057- 
□21059. 
□21059. 
□61354. 

• 81390. 
81405- 

□33365- 
33402. 
*43001. 

• 81001. 
□97037. 
□97030. 
□97033. 

□ 94013. 
□81029. 
*83331. 

83409. 

□ 940 13. 
• 94086, 
•94105. 
□97181. 
□21064. 

21423. 
♦95001- 
□21071. 

21462. 
□33040. 

33467. 
♦11001. 

□ 230. 
□97183. 
□37012. 

□ 33031. 
•37099. 
□33162. 


•21049. 

21857. 

31161. 

• 31162- 

• 3.1 177. 

31196. 

33125- 

•33207- 

•33477. 

33507. 

33588. 

•33589- 

37242. 

•37243- 

♦ 4.1004. 

•41017- 

•41045. 

□81026- 

81358. 

•81359- 

61465. 

81468- 

81673. 

•81674- 

•81739. 

81769. 

•81823. 

81826. 

•81878. 

81880. 

81914. 

81S2B. 

81971. 

•81973- 

83121. 

•83123. 

83245. 

•83247. 

832B6. 

•63290- 

83344. 

•83346. 

•83384. 

83399- 

83494. 

83496- 

94039. 

□97036, 

•98030. 

98058. 

•81424, 

81466. 

81781. 

81962. 

•83452. 

83453. 

13042. 

•93C29. 

•11174. 

•21647- 

97151. 

97190. 

•83153. 

83192. 

•21174, 

21 175. 

• 2.1309, 

•21320- 

21402. 

21403. 

21417- 

21425- 

•21433, 

21828. 

• 2.1387^ 

• 21414.. 

21542. 


• 930 26. 

98C46- 

♦21387. 

•21391- 

♦21387- 

•21402- 

•21337- 

•21403. 

•81379. 

•81382, 

81390. 

81391. 

81405. 

•81408- 

•33388. 

33389. 

33404. 


43049. 

43049. 

81096. 

81 114- 

97081 . 

•97153. 

97082- 

*97154. 

97070. 

•97253- 

94047. 

94062. 

61466. 

81469. 

83345- 

83361- 

94051- 

•94053. 

•94088. 

940»90- 

*97192. 

•97201. 

•21310. 

•21218. 

21433. 

21442. 

95006. 


♦21230- 

•21287- 

21475. 

21496- 

•33179. 

33223. 

33470, 

33544- 

11034- 

*21001. 

•31204- 

33400, 

•97193. 

•97202. 

*37193. 

37 194. 

•33175. 

33547, 

3.7142. 

37163. 

• 33 164 - 

33165- 


• 2 1858- 

□ 31029. 

31166, 

•31167. 

• 3 1198, 

31245. 

33208. 

•33215. 

•33529, 

•33531. 

□37033. 

• 37156. 

37251- 

•37252. 

4 1022. 

41024, 

♦81061. 

81068. 

81366. 

• 81368. 

• 81473, 

81640. 

81676. 

•81677, 

•81770, 

81792. 

•81827. 

81838. 

81887. 

•81889. 

• 81929. 

81931. 

81974. 

□83031. 

83127, 

• 83126. 

83266. 

•83267. 

83303. 

83305, 

83360. 

83365. 

83404. 

334 08. 

• 83498. 

*94001. 

•97043. 

•97072. 

9 8061. 


8 1469. 

•81494. 

•83471. 

63473. 

93029. 

93031. 

•21684. 

•33504. 

97206. 

97229. 

• 21184. 

• 21194- 

• 21342. 

21389, 

2 1404. 

•21406. 

21427- 


□9 8007. 

•96023- 

21415. 

21419. 

90056- 

96061. 

21392. 

21406, 

21835. 


21836. 


•81386. 

81306. 

*81395. 

• 81399, 

61408. 

81410. 

33391. 

•33395. 

*83001. 

83125. 

81115. 

81117. 

•97246. 

• 57249. 

•97191. 

• 97195. 

94065. 

•94078, 

• 81545. 

•81561. 

83366. 

83370. 

94053, 

• 94055- 

•94093. 

•94096. 

97207. 

97241. 

2 1338. 

•21340- 

2 1490- 

21538. 

•21290. 

21350. 

2150 3, 

21511. 

3324 8, 

33321. 

33552. 

33579. 

21085. 

♦33001. 

-33402. 

33442. 

57207. 


37225. 

37264- 

•33556. 

33610- 

37283. 


33170. 

33171. 


•31052. 

31076. 

31170. 

•31171- 

•31247. 

□33042. 

33216. 

•33467. 

•33552. 

33573. 

37209. 

37225. 

37256. 

37259. 

41036. 

•41039. 

•81090. 

81092- 

81433. 

• 81434. 

•81641. 

816 56. 

81731- 

• 81732. 

•81800. 

81801. 

•81840. 

81841. 

81390- 

81903. 

•81933. 

81941. 

•93071. 

831 14. 

83132. 

83134. 

83271. 

83273. 

*83307. 

83339- 

83369. 

•83375, 

*83414. 

83449. 

94025- 

94032. 

97075- 

•97064. 

•81510. 

•81521. 

83484. 

93043. 

93045. 

97048. 

97239- 

97107. 

21217- 

21231. 

21391. 

21398, 

21408. 

21414, 

98028. 

•21421. 

21446. 


21837. 


81387. 

81387. 

•81403. 

81403. 

•33398. 

33400. 

83127. 

33446. 

81120. 

•97252. 

81356. 


•94082. 

□03037- 

• 833 28. 

83400. 

83405, 

94055, 

940 58, 

•94099. 

•94102. 

97243, 

21411, 

21799. 

21412. 

•21359- 

214 50. 

21521 . 


33407. 

33584. 

33067. 

334 50. 

*33448. 

37193, 

37278. 

□37015. 

37075, 

33172- 

33173. 


LIBK 

LINKAGE 

I0CAL_EBANCH_LABEL 

10CAL_FALLTHHO_CONDITION 

LOCAL^IABEL_aEQD 

tCCAL^BASK 

localIpointer 


tDEFiNED •Hodified ♦Parameter 
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CBCSS-££F£fi£KC£ LISTING 


flOH (coot.) 

auLt 

BOLTIBASE 

flULTIFLESOP4 

HESTIUG^LIHIT 


iiEXT_C&SE 

8EXT_COflP_IA BELONG 
BEXT^DEPTH 
BBXT^IMDEX 
NOCASE 

N0T_FIBS1 F80C 
CD 

CFfSET 


CFfSBT IO_GPBO 


CLD EXIT 
CNEXII 

GNEXIT GEN NED 
CP 


CF CODE 
CP^COUNT 


OPERAND^FOfiHXT 


CPEfiANDI 

CPEBAND1_VALUE 

CPERAND2 

OP£fiAND2_VAia£ 

OPEBAND3^ 

OPEBAND3_VALUE 

cpebandm“ 

CPEHAND<4_VALUE 

CPEIil 

OPEB2 
OPEB3 
0FEB4 
CPTIGN 
CS LINKAGE 


CS_POIBTEfl 


PASS 

PCT_GZ8NED_WITH^VECTOR 

POP_OID^ELOCK 

PEE V_SAVITfiACE_ AREA 
PEEV_SA7Ii'BACE^PTR 

PBEVICOS_D£BUG_ VECTOR 


PBOC 

PBOC^COUNTEB 
PfiOC_DbBUG_SET 
PROC^DEBUG STUFF 


oDEIlNED •Modified 


33179, 

ad1024. 

• 8321^1. 
081019, 
n33032, 

37227, 

a 202 . 

35028. 
•93015- 
o33044- 
a 231. 
♦97023, 
♦97021, 

□ 37031, 
37222. 

□ 149. 
□270Q1, 
□81043. 
•01580. 

□ 83321. 
83400. 

□01045. 

•81694. 

83158. 

♦92001. 

□ 25001. 
□25009. 
□33364. 

33398. 

• 334 16, 
♦94002. 

□ 213B5. 
940 75. 

• 97074. 
□21036. 
•21466, 

• 21505. 
-21544, 

21745. 
o 217. 
33165. 
11024, 
a 217. 
83153, 
13058, 

□ 217. 
63166. 
13059, 

o 217, 
♦93006, 
♦94003. 

96061. 

♦94004, 

♦94005, 

*94006. 

♦31001. 

□ 81014. 
81401, 
81939- 
63286. 

□ 81029. 

• 83330. 
8341 1- 

□ 21S87. 

□ 61667. 
13052- 
43053, 

□ 164- 

□ 166- 
■ 83483. 

□ 81031, 
63425, 
83432- 

□ B1001. 

□ 137. 
81144- 
81084. 


□33607. 

81465. 

83399. 

•81606- 

•33176, 

37246. 

13016- 

37040, 

93023. 

•33470, 

•31206, 

97086- 

97005- 

•37161, 

37226, 

81138, 

43040. 

•81425, 

• ai586- 

*83343. 

•81425- 

81594. 

83161- 

92013- 

•25035. 
•33376- 
33404. 
33416. 
94028. 
•21394, 
94 060, 
97083, 
21094. 
•21469. 
•21507. 
•21546- 
21757, 
13034. 
•33613. 
♦93003. 

13029. 

•93035- 

*93004- 

15031- 

•93036. 

*93005. 

•31269, 

93037, 

94032. 

94036. 

94040- 


31086. 

-81114. 

81542, 

61958. 

83325- 

81466. 

83345- 

-21589. 
• 8.1901 . 
15009- 
83054. 
53030. 
53025. 

•81183, 

63426- 


81 150- 
□81167- 
□81865. 


•33609- 

81468. 

83404- 

81969. 

•33414. 

15007. 

43011- 

93025, 

33476, 

331.S2. 

• 97150. 
♦97148. 
•37164. 

37230- 

•81139. 

61464, 

•81589, 

83345, 

•81551, 

81603. 

83343, 

92025. 

25037- 

33377. 

33406. 

94032- 

•21396. 

940.02, 

21 105- 
♦21477, 
•21513- 
•21549- 
21785, 
13038, 
37C96, 
93C34. 

• 21836. 
98025. 
93035. 

•21837. 

98026. 

93036- 

33172- 

94035- 

94040, 


31088. 

81129- 

81621. 

□83028. 

83444. 

81470- 

83361- 

21590. 

61912. 

15031- 

83137. 

•81736. 

53031- 

•81338- 

83427. 


•81153. 


33610- 
• 81488. 

83408. 

•81988. 

33610, 

23021, 

53010, 

33499. 

•35258, 


•37167. 

37270. 


81469, 

81591. 

•83359. 

-8 1567. 
81955, 
83359. 
92027. 


33377. 

33407, 

94035- 

21404, 

94084. 

•21452. 
•21479. 
•21515, 
• 2 1552. 
21802. 
15026. 
•81951. 

•31267, 


• 31260. 


•81954. 

94039. 

□98014. 


3 1090, 
81316, 
81625, 
83085. 

•81544. 

83367. 

21592. 

27045. 

□92001- 

81854- 

•81735- 

81954. 

83428, 


81153. 


33613, 

•81510. 


□37016, 

25021. 

55006. 


37067. 


37212. 


•81551. 

•81603. 

83361. 

• 81577. 
□83016. 
83398. 


33391. 

33408. 

94039. 
□ 33496. 
94086. 

• 21454. 
•21482, 
•21523, 
•21555. 
21815. 
15028. 
83152- 

33170, 


33171. 


83167. 

□98014. 

•98025, 


31094. 

81362. 

81632. 

83112. 

•81560, 

83371. 

21619, 

35024. 

• 81858. 
81852. 

□63046. 

83429. 


81155- 


□83035, 


•37100, 

27014. 

83052. 


37195. 


37214. 


•81567. 

•816Q6, 

□83391. 

•81580. 

•83155. 


33394. 

33412. 

94043. 

♦94009. 

94086- 

•21457. 

•2149B. 

•21525. 

21564- 

•21835, 

•93034. 

37097. 


37098. 


•93037. 

•98024. 

98062. 


31096. 

81373. 

61666. 

83119- 

□83037- 

83400- 

•21633- 

37084. 

83465, 

•81856. 

•83167. 

83430- 


•83193, 


37210, 

35007, 

92007, 


37217. 


•81577. 

61606. 

•83398. 

•01591. 

83156. 


33395. 
334 1 2 . 


94022, 

♦97019, 

•21464. 

•21500. 

•21528. 

21655- 

•31266, 

98024. 

•81952. 


•81953. 


98056. 


81384. 

81910. 

•83163. 

• 83327. 
83406. 

21633. 

43013. 

•83484. 

83463. 

834 2 3, 
83431. 


♦Parameter 
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CROSS-fiEFEREHCE LISTING 


PflOC_D£CIDE_SAVE_TrPE 

81446. 

□81530. 






PfiOc“DEFINfc”NEtf OSSAVE 

31725- 

□81759. 






PBQC ESTABLISH EASE 

31074- 

□81611. 






PfiOC GEN LOCAL 5AVEAHEA 

81713. 

□61833. 






proc^genIossave^area 

81705- 

□81720. 






PROC,GEN_SAVEABEA 

81078, 

□81699. 






PROC^HEADEB 

81068- 

□81343- 






tfiOC^ID_BETE 

O81033- 

•81157- 

81158. 

81161, 

• 81163. 

81846. 

818B4. 


81904- 

81959. 

□83044. 

•83169- 

83172- 

83269. 

834 56- 


634 76- 







PfiOC_I«FO_SAVE 

81 101, 

□81946. 






pbocIhultiease^gen 

81082. 

81817. 

81862, 

ad 1962. 




FBOC NAHE 

♦ 63001. 

63057- 






pbocIreg^save 

81071, 

□61416- 






PfiOC^SCAN^OPTIONS 

31063. 

□B1105. 






FfiCC^SEl_SAVE_INFO 

81437. 

□81477- 






PUSH^NEOi-OCK 

11022. 

13054- 

21077. 

31042- 

33059- 

41009. 

81053. 


n93001. 







QUOTE 

□31351, 

•81394. 

•81398, 

81406- 

81406- 

81410. 

814 10- 

RANGE 

♦31001- 

31113. 

31117. 

31119. 




£ANGE^T£ST_0UTSTAND1N6 

□33026. 

•33194. 

33213- 

•33219, 

33251. 

•33319, 


eange_iest2reqd 

□37025. 

-37170. 

37171, 

37276- 




EC 

♦43001. 

43050. 

43050- 

♦8 3001- 

63248., 

03284. 

83294. 


83296. 

83299. 

83301. 

83305- 




BC^EEG 

□ 830 40. 

•83283, 

• 83291. 

♦83296, 

• 63308. 

83333. 

83337. 


83339- 

83344, 






BEL 

♦ 11001- 

11034. 

*21001- 

21085- 

♦33001. 

33067. 


BECO^NAHE 

♦ 91001- 

91013. 

91015- 

91023. 

91026- 

91030. 

91034- 


*96001- 

96011. 

96045. 

96052. 

96057- 

96063. 


BEiiL^TYPE 

♦96001. 

96019. 

96022- 

96024. 

96029- 

96031- 

96036. 


96055, 

96058. 






fESTOBE 

♦43001. 

43049. 

43049- 

♦83001- 

83199. 

83204, 

63206. 


83207. 







EESTOBE^AREA 

□ 83037. 

•83216. 

•83254. 

83331, 




BESTl 

□83043. 

•83191. 

•83206. 

83397. 

83399. 

83404- 

83405. 


B34 0B. 

83409, 

83410- 





BEST2 

□ 83043- 

•83192, 

•83207- 

83212. 

83400. 

63405- 

33409. 

EETUBN 

*43001- 

43049. 

43049, 

*83001- 

83248. 

83349. 

83355. 


83359. 

83359. 

83360, 

B3365- 

83366- 

83369. 

83370, 


83371. 







SAF 

□61046. 

•81425. 

•81493. 

♦ 81499. 

81500. 

•81505. 

81513. 


81569. 

81569. 

81572- 

81591. 

81592- 

81603- 

61604. 

SAL 

□ 81046- 

•31425. 

♦ 814.94, 

•61513- 

♦81515- 

-81520. 

81521- 


• 81524. 

81569. 

81569- 





SAVE 

♦ 61001. 

81427. 

81499, 

81504- 

81520- 

81523. 

81546- 


81552. 

B1556. 

81624. 

81624. 

81710. 

81746. 

81767. 


81790. 

81826, 

819110. 

81958. 




SAVE^IENGTK 

□81035. 

•61432, 

•81554. 

•81556. 

•81565. 

•81570. 

81769. 


81B1 1. 

81815- 

81861. 

81953. 

□ 83042. 

•83166. 

83252- 


83383- 

83481. 






SAVE^TYPE 

□ 81037, 

•81431- 

81457- 

•81548. 

•B1550. 

•B1564. 

• 81576- 


• 81579- 

•81585. 

•81588. 

81600. 

81703. 

81710- 

81844. 


B1844. 

61849. 






savereg 

□81039- 

81738. 

81740, 

81741. 

•81766- 

•81606, 


SAVETBACE CHECK 

□ 81177, 

•81267. 

•81272, 

•81280. 

61310. 



SAVETRACE_0H_FIB5T_PR0C 

□ 151- 

53023. 

•81318- 

81325. 

83269. 



savetbace'^valoe 

□ 81175, 

•81266. 

• 8 1271, 

• 81277. 

81312. 



SECT 

□ 61350- 

•81375- 

•81377- 

•91381, 

81388. 

81391. 


SiarCOND_GET^BASK_OB_REL 

94018, 

□94070. 






SIBPLE^COBDITIONAL 

□ 94001. 

97075. 






SPECIA1_PFEPIX 

□81016- 

•81147. 

81151. 

81959. 




SV_OPFSET 

□83227. 

•83234. 

•83240- 

•63242. 

83253. 



SYSLISI 

11042. 

11174. 

11180- 

1121 1. 

21167- 

21174. 

21177- 


21187. 

21232, 

21244. 

21251. 

21288. 

21292. 

21316- 


21336- 

21345. 

21391. 

21398. 

21400. 

21402. 

21403. 


21404. 

21414. 

21719- 

33082. 

33166. 

33195. 

33190- 


33199- 

33200. 

33201- 

33203. 

33200. 

33286. 

33288- 


33292. 

33299. 

33302. 

33310. 

33314- 

33316. 

33327- 


33335. 

33337. 

33341- 

33348. 

33350. 

33369. 

33372- 


33376- 

33381. 

33303. 

33388- 

33393. 

33462- 

33504, 


33507- 

33577. 

94G80. 

94082. 

94 084 . 

94086. 

940 88, 


97074- 

97076, 

97077- 

97078. 

97079. 

97080. 

97107. 


97114- 

97117. 

97136- 

97156- 

97163, 

97189 . 

97207. 


97209- 

97213- 

97220. 

97224, 

97226. 



1 

□37010- 

•37067, 

*37072- 

37077, 

37080, 



TARGET 

□11209- 

•11233, 

•11236- 

11240, 

11243, 

□81352. 

•81365- 


81366- 

81366. 

•81672- 

01673, 

01674. 

□83442- 

•63446, 
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CBGSS-fiEFEfiENCE LlSTIKG 


1ABGE1 (coat,} 

IDL^FALLTHnU OCCURS 

83449, 
97253, 
n 1 46, 

83450, 

25055, 

□97185- 

*98045, 

•97205. 
• 98048- 

•97222, 

•98069. 

97222. 

97252. 

1i}i_GEMNED 

1ERHIKATE_C0_L00P 
IHIS CCJJUITIONAL REQD 

□ 23011, 
•27031. 

23049, 

O21052, 

• 23043. 
27033- 
25054, 
21608, 

23047, 

27035- 

•21643- 

□2501 1- 

09 8001- 
• 21680- 

•25050. 

25052, 

□27005. 

IBACE_PSlua:ER 

11020, 

13014, 

15005- 

21075. 

23019, 

25019- 

27012. 


31040. 

33048. 

35005- 

37038, 

41007, 

43009. 

53006. 

■IBACE^VECTOfi GENNED 

55004. 

□ 95001. 

□ 153, 

81051, 

96006, 

81873, 

83050. 

97041, 

•01894- 

91008- 
9 BO 17. 

92005, 

99006, 

93013. 

94016. 

ULTlHAIE^BfiA NCH_LAB IL 

a 260. 

*11106, 

11128- 

11138- 

•11139, 

•11154. 

•21648- 


•21659, 

97153. 

•21665, 

57249, 

•21685. 

•33499. 

550 16, 

•91051- 

•91053. 

ULniHATE^FALLTHEO^CONDITIOa 

□ 253, 

97154. 

•11111. 

97242. 

•11147, 

97244, 

• 21652. 

•21658. 

•21689. 

♦33501. 

ULaiMATS_FALLTHBU_LA0EL 

a 263. 
•21666. 

•11109. 

•21669. 

•11146- 

•21687, 

11200- 

21748, 

21629. 

•33500. 

•21650. 

97246. 

•21662. 

DNEAPECTED OPERANDS FOUND 

□33034, 

•33177- 

•33226. 

• 33410, 

334 51. 

33611. 


INIQUE^LABEL ID 

a 269- 

•11177- 

•21653. 

•21690. 

•33506. 

97072. 

97252. 

UNTIL_CGND_TEST 

□21050. 

21643, 

•21319- 

21644- 

•21324- 

•21328. 

21412- 

21492. 

21540. 

UNIIL_END_INDEX 

□21035, 

•21327, 

•21231. 

21647- 

•21243, 

•21246. 

21265, 

21280. 

21319. 

UNTIL. INDEX 

□ 21035. 

• 2J166. 

21189- 

♦21191, 

21202. 

21214- 

21216. 


21241, 
• 21427, 

21249- 

21646- 

21265, 

21280. 

•21313, 

21313, 

• 21327. 

UNTIL.FflESENT 

□21045. 

•21214. 

21217. 

♦2 1234. 

21238. 

•21270. 

212B0. 


• 21282. 
21536. 

21235, 

21311, 

21448. 

21460, 

21473- 

21519. 

USER_NAflE 

*11001- 

11022- 

11038. 

♦13001. 

13034- 

13054- 

13065. 


13067, 

*15001. 

15012. 

*21001. 

21077. 

21089. 

•23001. 


230 25. 

♦25001. 

25025- 

*2700 1. 

27016. 

♦31001- 

31042. 


31052, 

♦33001- 

33056- 

33059, 

33075. 

33077, 

♦35001. 


35009. 

♦37001. 

37042. 

*4 1001. 

41009. 

41017. 

♦43001. 


43020, 

43022. 

43C29, 

43037, 

43040. 

43043, 

43046, 

LSING13 

43049, 

81381. 

□31016. 

♦55001, 

81382, 

•81637. 

55016. 

♦aacoi. 

81679. 

♦81001. 
83071. 
8 1742. 

81053. 

81804. 

81061. 

81371, 

VALID^EXIT 

□11012- 

•11040. 

11050, 

1 1068, 

11080. 

•11083. 

•11126. 

VERIFlf_END 

13020. 

83057, 

15012. 

□96001. 

23Q25. 

25025, 

27016. 

35009. 

37042. 

liHILZ.CCND^TBST 

□ 21050. 
21680. 

•21341. 

21681. 

•21356. 

•21363. 

•21367. 

21411. 

21444, 

HHI1£_ESD.INDEX 

□21034. 
• 21360. 

♦21231- 
♦21366 . 

•21250. 

21684. 

•21253. 

21256. 

21274. 

21341. 

BHILB^IBDEX 

□ 21031, 

♦21166. 

21179, 

•21181, 

21202. 

21215. 

21240. 


21241, 

•21425. 

21256. 

21683- 

21274. 

• 2 1333, 

21333. 

•21360, 

•21366, 

yHlLE^FBESEHT 

□21045. 

21331. 

•21215- 

•21358- 

•21234. 

21440. 

21236- 

•21263. 

•21276. 

21285. 

KORX 

♦ 81001. 
81794, 

81086. 

81820- 

81124. 

01875. 

81638. 

81926. 

81749. 

81771 . 

81778. 

NOEKREG 

□ 81041. 

81088, 

•81124. 

81125. 

•61131, 

•81133. 

81634. 


81640. 

81753. 

81754. 

8 1766. 

81773. 

81776. 

81777. 


81796- 

81801- 

81822. 

81826, 

81877, 

81880- 

8188U 

SOfiKHBG_USED 

81882. 

81883- 

81S28. 

81931, 

81934. 

81934. 

01935. 

□ 81021. 

81086. 

81638. 

• 81643, 

81749. 

•81755. 

• 81788. 


81794. 
• 81937- 

•81798, 

81820. 

• 81825. 

81875- 

• 8 1885. 

81926, 

1 

□ 31220- 

•31241. 

•31243. 

3 1245. 

□33161. 

•33173. 

33174- 


331 75. 

33176. 

33177- 

33178. 

□ 81763, 

•81765. 

•81803. 


81811. 

81815- 

□81967. 

• 8 1978. 

81981- 

•81983. 

□63150. 


• 83154. 

83155. 

83183. 

63164. 

83165- 

83 1 69 . . 

.. 831 70, 

XHEX 

□ 98010- 
•98054. 
33582, 

•98019. 
98059. 
81 156, 

98020- 

98062- 

□99001- 

98021. 

96022, 

98023. '*■ 

• 96052- 


cDEflNED •nodified ♦Parameter 
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APPENDIX D 
DIAGNOSTIC MESSAGES 

Th6 rnessag6s generatsd by th6 STRCMACS ars dsscribed below. Each 
message has an identifying number. 

Mess age -Text 

Severity Message -Number Explanation 

8 STRCllOl EXIT= IGNORED WITH ASYNCH 

Both the EXIT= and ASYNCH operands were speci- 
fied, but are mutually exclusive; the EXIT= oper- 
and has been ignored. 

8 STRC1102 REL= OR MASK= NOT IN PARENTHESES— 

IGNORED 

The REL= and MASK= operands must be part of 
a simple conditional and thus must be inside pa- 
rentheses, The kesnvord has been ignored. 

8 STRC1103 EXIT= IGNORED WITH ELSE= 

The EXIT= and ELSE= operands were both speci- 
fied but are mutually exclusive. The EXIT= op- 
erand has been ignored. 

8 STRC1301 Y.'LSE.-namel SPECIFIED ON IF BLOCK name2 

The current IF block (whose name is name2) in- 
cluded EAJSF.=namel as an operand, but a different 
(or no) name appears in the label field of this ELSE 
macro. The discrepancy is ignored. 

8 STRC1302 ELSE HAS ALREADY BEEN GENERATED FOR 

CURRENT IF 

An ELSE macro has already occurred in the cur- 
rent IF block. The macro is ignored. . 
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Message-Text 

Severity Message -Number Explanation 

8 STRC1501 ELSE BLOCK elsename NOT FOUND 

The operand ELSE=<?fcename was coded on the IF 
macro, but the FI has occurred before the ELSE 
occurred. 

8 STRC2101 OPERANDS AFTER SECOND "WHILE" IGNORED 

The keyword ’WHILE" appears more than once in 
the DO’s operands. 

8 STRC2102 OPERANDS AFTER SECOND "UNTIL" IGNORED 

The keyword "UNTIL" appears more than once in 
the DO’s operands. 

4 STRC2103 WARNING— 'WHILE, (BCT, ..." WILL LOOP ONE 

LESS TIME THAN VALUE IN REGISTER 

The looping branch BCT was coded in the WHILE 
looping group. Since the BCT is executed before 
the loop, the loop will occur one time fewer than 
the initial value in the register. 

4 STRC2104 WARNING— LOOPING BRANCH MAY NOT BE 

EXECUTED ON EVERY ITERATION 

A looping branch is present in the WHILE looping 
group and the UNTIL looping group is also pres- 
ent. The two loopii^ groups are connected by 
"OR". If loop execution is to be continued on the 
basis of the UNTIL group, the WHILE group will 
not be executed. Hence the indexing register of 
the looping branch will not be bumped in such cases . 

8 STRC2105 TWO LOOPING BRANCHES INVALID IN "DO"- 

' WHILE" IGNORED 

Both the WHILE and UNTIL looping groups contain 
looping branches (BCTs, BXHs, orBXLE,); the 
WHILE looping group has been ignored. 


D-2 





Message-Text 

Severity 

Message-Number 

Explanation 

8 

STRC2106 

INVALID NUMBER OF OPERANDS FOR opcode 

The looping branch opcode has the wrong number 
of operands; BCT should have one, BXLE or BXH 
should have two. 

8 

STRC2107 

XXX INVALID AFTER LOOPING BRANCH-"AND" 
INSERTED 

The operand following the looping branch must be 
"AND" or "OR"; xxx was found. 

8 

STRC2108 

FIRST OPERAND MUST BE "WHILE", "UNTIL", 
"FOREVER", OR OMITTED 

The first operand of the DO macro is invalid. 
Either WHILE or UNTIL has been inserted, de- 
pending on the remaining operands. 

8 

STRC2109 

WHILE TEST IS VOID— IGNORED 

No looping group follows the keyword "WHILE"; 
the keyword has been discarded. 

8 

STRC2110 

LOGIC OPERATOR BETWEEN ’WHILE" AND 
"UNTIL” OMITTED— "AND" ASSUMED 

No logic operator occurs between the WHILE and 
UNTIL looping groups. An "AND" has been 
inserted. 

8 

STRC2111 

UNTIL TEST IS VOID-IGNORED 

No looping group follows the ke 5 Word "UNTIL"; 
the keyword has been discarded. 

8 

STRC2112 

PARENTHESES OMITTED AROUND opcode 

The looping branch opcode was not specified as a 
sublxst. 
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Message-Text 

Severity Mess age -Number Explanation 

8 STRC2113 REL= OR MASK= NOT IN PARENTHESES— 

IGNORED 

The REL= and MASK= operands must be a part of 
a simple conditional and thus must be inside pa- 
rentheses. The kejword has been ignored. 

8 STRC2114 SUPERFLUOUS LOOPING GROUP IGNORED 

Both WHILE and UNTIL are present, but other 
operands precede both. Such operands have been 
ignored. 

8 STRC2301 MORE THAN ONE '’ATEND'* IN BLOCK 

More than one ATEND macro has been found for 
the same DO. Only the first is processed. 

8 STRC2501 MORE THAN ONE "ONEXIT" IN BLOCK 

More than one ONEXIT macro has been found for 
the same DO, Only the first is processed. 

8 STRC2502 NO EXIT FOR THIS "DO" 

No EXIT has occurred specifying the DO block fot 
which an ONEXIT is being generated.' The segment 
is dead code. 

4 STRC3101 WARNING — ASSUMED AS INDEX: USE 

"DOCASE.xxx" FOR RANGE SPEC 

XXX is either "IFANY" or "ONLY" and appears as 
the first operand. As such, it is assumed to be 
the address of the DOCASE index. If the range 
specification is intended, xxx must be the second 
or third operand. 

8 STRC3102 xxx INVALID SECOND OPERAND— IGNORED 

The second operand of DOCASE may only be 
"SPARSE", "SIMPLE", "IFANY", "ONLY", or 
omitted, xxx was found. 
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Message-Text 

Severity Message-Number Explanation 

8 STRC3103 XXX INVALID THIRD OPERAND-IGNORED 

The third operand of DOCASE may only be "IF ANY", 
"ONLY", or omitted, xxx was found. 

12 STRC3104 GENERAL/SPARSE /CHARCOMP DOCASE NEST- 

ING LEVEL nestlev EXCEEDS MAXIMUM OF 
max/ev -MACROS MUST BE MODIFIED 

The number of nesting levels of DOCASE macros 
(other than SIMPLE or conditional test type 
DOCASE s) is nestlev \ but the internal stack limits 
such nesting to maxlev . Either the program or 
the macros must be modified. 

8 STRC3301 "CASE" NOT IMMEDIATE DAUGHTER OF 

"DOCASE" 

The CASE macro is not immediately surrounded 
by a DOCASE macro. If one or two BLENDs are 
required, they will be inserted and message 3302 
or 3303 will be issued; otherwise, message 3304 
will follow. 

8 STRC3302 ASSUMING "BLEND" OMITTED-INSERTED 

Preceded message 3301. Since the second 
containing block is a DOCASE , one BLEND is in- 
serted to get to it. 

8 STRC3303 ASSUMING TWO "BLENDS" OMITTED-INSERTED 

Preceded by message 3301. Since the third con- 
taining block is a DOCASE , two BLENDs are in- 
serted to get to it. 

8 STRC3304 "CASE" TREATED AS "BLOCK" MACRO 

Preceded hy message 3301. No fix -up was pos- 
sible. The CASE is converted to a BLOCK. 
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Severity Message -Number 


Message-Text 

Explanation 


8 


4 


8 


8 


8 


8 


STRC3305 XXX INVALID— yyy ASSUMED 

XXX appears as the operand of a CASE macro, but 
the format is invalid. Usually this occurs when a 
range is coded whose second value is less than the 
first (such as "(15, 10)"). The operand yyy replaces 


STRC3306 EARLIER UNEXPECTED OPERAND IMPLIES 
THIS TO BE CASE xxx 

CASE macro has no operands but earlier CASEs 
for the same DOCASE contained operands other 
than their ordinal position numbers. The operand 
xxx has been assumed. 


STRC3307 OPERAND INVALID VALUE ON SIMPLE CASE 
xxx 

The ordinal position number of this CASE is xxx, 
but SIMPLE was coded on the DOCASE and an op- 
erand other than xxx on the CASE. The operand 
is ignored. 


STRC3308 "DOCASE, .. ,ONLY" INVALID WITH MISC 

A CASE MISC has been found in a DOCASE with 
the ONLY range option. Since these are mutually 
exclusive, the ONLY has been ignored. 

STRC3309 OPERAND MUST BE SELF -DEFINING TERM 
OR OMITTED ON SIMPLE CASE xxx 

The ordinal position number of this CASE is xxx 
and SIMPLE was coded on the DOCASE, but an 
operand has been specified which is not a self- 
defining term. It has been ignored. 

STRC3310 REL= OR MASK= NOT IN PARENTHESES— 
IGNORED 

The REL= and MASK= operands must be a part of 
a simple conditional and thus must be inside pa- 
rentheses. The keyword has been ignored. 
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Severity Message-Number 


Message-Text 

Explanation 


8 STRC3311 MULTIPLE MISC CASES IN THIS DOCASE- 

THIS BLOCK IS DEAD CODE 

More than one "CASE MISC" has occurred in the 
same DOCASE. Only the first is executable. 

8 STRC3312 xxx INVALID -ONLY FIRST TWO SUBOPERANDS 

PROCESSED 

XXX is an operand list containing more than two sub- 
operands in a CASE macro for a DOCASE which 
specified an index. Operands after the first two 
are ignored. 

* STRC3313 CASE DEBUG ID=X»/jft' 

Debug block counts are being kept for this CASE 
macro. When executed, this block will store 
X'hh* into the last-case variable in the immedi- 
ately surrounding DOCASE block. 

8 STRCS701 DOCASE CONTAINS NO VALID CASES 

No valid CASE macros were foimd as immediate 
sub-blocks of the DOCASE . 

8 STRC4301 NO BLOCKS ACTIVE -"BLEND” IGNORED 

A BLEND macro was coded but no blocks were 
active (the current nest level was zero) . The 
macro has been ignored. 

8 STRC4302 NO BLOCK ACTIVE NAMED xxx- "BLEND" 

IGNORED 

A BLEND macro was issued for block xxx, but no 
block by that name is active. 

8 STRC5301 BLEND OF blmme ASSUMED 

The block blname has not yet been terminated ; a 
BLEND is being issued for it by the FINAL macro. 
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Message-Text 

Severity 

Message -Number 

Explanation 

8 

STRC8101 

LINKAGE=a:xjc INVALID-'’0S" ASSUMED 

The first suboperand of the LINKAGE= keyword is 
invalid; "OS" has been substituted. 

8 

STRC8102 

SECOND LINKAGE OPERAND IGNORED 

The second suboperand of the LINKAGE= keyword 
must be either "CSECT" or omitted. It is invalid 
and has been ignored. 

4 

STRC8103 

WARNING— SAVE TRACE REQUIRES "FINAL" 
MACRO 

The SAVETRACE debug option has been specified 
on the first PROC; warning is printed to indicate 
need for FINAL macro. 

8 

STRC8104 

DEBUG=xa:x INVALID-IGNORED 

An invalid debug specification is present; the first 
eight characters of the invalid operand are listed 
as XXX. That option is ignored. 

8 

STRC8105 

SAVETRACE MUST BE SPECIFIED ON FIRST 
PROC 

The SAVETRACE debug option must be enabled on 
the first PROC. The operand has been ignored. 

8 

STRC8106 

SAVETRACE REQUIRES FIRST PROC TO BE 
LINKAGE-OS 

The SAVETRACE debug option is valid only if the 
first PROC includes the LINKAGE-OS specification. 
The operand has been ignored. 

4 

STRC8107 

REG 1 MUST BE AMONG THOSE SAVED 

Register 1 was destroyed during the GETMAESf for 
a dynamic save area and registers 14 through 12 
were not specified (or defaulted) as beii^ saved and 
WORK-NONE was specified. No further check is 
made to assure register one was among those saved, 
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Severity Message -Number 


Message-Text 

Explanation 


4 STRC8107 but the restore has been issued. If register 1 was 

(cont. ) not among those saved, its value will be undefined. 

* STRC8108 PROC proc-name, DEBUG ID=X'M‘ 

The save -trace, proc -trace, or proc-count debug 
option has been specified for this proc. The hex 
id byte hh will be used to identify this proc in the 
labels and dumps. This message is generated so 
that the user will know the proc id number even if 
"PRINT NOGEN" has been specified. 

8 STRC8109 REGISTER 13 IS INVALID-IGNORED 

Register 13 was specified as a base register other 
than as the first register for an OS proc using an 
in-line save area. The operand has been ignored. 

8 STRC8301 NO REGISTERS SAVED-RESTORE IGNORED 

RESTORE= was coded on the CORP macro, but 
SAVE=NONE was coded on the PROC. The oper- 
and is ignored. 

4 STRC8302 WARNING-NO CHECK MADE TO INSURE RE- 

TURNING REGISTERS ARE AMONG THOSE 
SAVED IN TRUNCATED SAVE AREA 

The first operand on the PROC macro was a dec- 
imal integer other than 14. As a result, a small 
(truncated) save area was created. No check has 
been made to insure that the registers specified 
by the RETURN= operand will fit in the save area. 

If the returning registers are a subset of the 
RESTORE= registers and they, in turn, form a 
subsequence of the saved registers , the proper 
code will be generated. 

0 STRC8303 ONE OR MORE EXIT'S REFERENCE THIS POINT 

This CORP is the target of one or more EXIT mac- 
ros (or EXIT= operands of IF macros). The sever- 
ity code of this message may be modified by speci- 
fying the EXIT= operand of a PROC macro. 
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Severity Message -Number 


Message-Text 

Explanation 


8 STRC9103 EXIT TO IMMEDIATELY SURROUNDING BLOCK 

INVALID 

The block name specified as the EXIT target is 
the block immediately surrounding the EXIT. 

8 STRC9104 EXIT TO DO BLOCK INVALID WITHIN ATEND 

OR ONEXIT 

An EXIT macro specifies (or implies) a DO block 
as its target, but the EXIT macro is nested within 
the ATEND or ONEXIT segment of the DO. The 
macro is ignored. 

0 STRC9201 ONE OR MORE EXIT'S REFERENCE THIS 

POINT 

This block is the target of one or more EXIT mac- 
ros (or EXIT= operands of IF macros). The sever- 
ity code of this message may be modified ty speci- 
fying the EXIT= operand of a PROC macro. 

12 STRC9301 BLOCK NESTING LIMIT OF limit EXCEEDED- 

MACROS MUST BE MODIFIED 

The current static nesting level has exceeded the 
stack limit in the macros of limit. Either the pro- 
gram or macros must be modified. 

8 STRC9302 NON-CASE BLOCK IMMEDIATELY SURROUNDED 

BY DOCASE INVALID 

The block being defined is not a CASE block but is 
immediately surrounded by a DOCASE block. The 
result is undefined. 

8 STRC9401 INSUFFICIENT OPERANDS FOR TEST "opcode'' 

The parenthesized list which is supposed to be a 
simple conditional contains two items, the opera- 
tion code opcode and a be -spec. 
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Message-Text 

Severity Message -Number Explanation 

8 STRC9402 SUPERFLUOUS OPERANDS FOR TEST "opcode" 

The parenthesized list which is supposed to be a 
simple conditional contains more than 5 items. 

8 STRC9403 NO CONDITION SPECIFIED— "MASK=0" 

ASSUMED 

A void simple conditional has been specified. 

8 STRC9601 ONE BLEND ASSUMED TO GET TO "type" 

BLOCK 

In a block terminating macro (such as FI) , the 
current block was not of the corresponding iype 
(such as IF), but the surrounding block is of the 
proper type. One BLEND has been inserted. 

8 STRC9602 TWO BLENDS ASSUMED TO GET TO "type" 

BLOCK 

In a block terminating macro (such as FI) , the 
current block was not of the corresponding type 
(such as IF), but the second surrounding block is 
of the proper type. Two BLENDs have been 
inserted. 

8 STRC9603 CURRENT BLOCK IS NOT "type" BLOCK- 

MACRO IGNORED 

In a block terminating macro (such as FI) , the 
current block was not of the corresponding type 
(such as IF). 

8 STRC9604 NO ACTIVE BLOCK NAMED "blname" 

The request to terminate block blname has been 
ignored because no block named blname is in the 
nest. 
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Message-Text 

Severity Message-Number Explanation 

8 STRC9605 BLOCK *'blname" IS NOT A type BLOCK- 

MACRO IGNORED 

The request to terminate a block named blname of 
type type has been ignored because the indicated 
block is of a different type. 

8 STRC9606 END OF BLOCK "blnameP' IMPLIES END OF 

BLOCK "blname2" 

Request to terminate block blnamel must first 
terminate block blname2 which is nested inside 
block blnamel, 

8 STRC9607 NO BLOCKS ACTIVE-MACRO IGNORED 

The request to terminate a block has been ignored 
since no blocks are outstanding. 

8 STRC9701 INSUFFICIENT OPERANDS 

The conditional expression ends with a logical 

operation (AND or OR) outstanding. 

8 STRC9702 INSUFFICIENT BRACKETS 

More left brackets ("<" or "+") than right brackets 
(”>" or "/") are present. 

8 STRC9703 SYNTAX ERROR-LOOKING FOR "AND" OR 

"OR", FOUND XXX 

The operand xxx was found where a logical opera- 
tor was expected. 

8 STRC9704 SYNTAX ERROR-xxx INVALID 

Invalid operand xxx in conditional expression. 

8 STRC9705 SUPERFLUOUS BRACKET IGNORED 

More right brackets ("<" or "/") have been found 
in the conditional expression than left brackets 
(">" or "+"). 
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Severity Message -Number 


Message-Text 

Explanation 


8 STRC9706 


* STRC9902 


STRC9903 


SYNTAX ERROR— LOOKING FOR SIMPLE CON- 
DITIONAL, FOUND 

The operand xxx was found in a conditional expres- 
sion where a simple conditional sublist was 
expected. 

START OF BLOCK nn (blname) AT DEPTH level 

In response to the debug option LISTBLOCKS, the 
message indicates the start of the block whose 
sequential number is nn. The block name is blname, 
if no name was specified on the block initiation 
macro, blname is an internal name of the form 
BLKn«. The current static nest level is level . 

END OF BLOCK nn (blname) AT DEPTH level 

In response to the debug option LISTBLOCKS, the 
message indicates the end of the block whose se- 
quential number is nn . The block name is blname ; 
if no name was specified on the block initiation 
macro , blname is an internal name of the form 
BLKnn. The current static nest level is level . 
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appendix e 

INSTALLING THE STRCMACS 


The structured macros are available to any interested parties. They may 
be obtained by writing to: 


C. Wrandle Barth 
Code 603 

Goddard Space Flight Center 
Greenbelt, Maryland 20771 

The normal distribution medium is a 9-track, 800 bpi unlabeled distribution 
tape reel (DTK). It contains four data sets. 



Data Set 

BLKSIZE 

LRECL 

RECFM 

(1) 

PROSE 

2000 

80 

FB 

(2) 

STRCMACS 

2000 

80 

FB 

(3) 

LISTINGS 

2000 

137 

VBA 

(4) 

RUFDRAFT 

2000 

80 

FB 


The first data set will contain any special instructions for installing the 
STRCMACS. It will also include any known restrictions, changes, or extensions 
to the macros as described in this document. 

The second data set is the lEBUPDTE source for adding the STRCMACS to 
a macro library. Each macro is preceded by a ". / ADD” card and the last rec- 
ord is a ”. / ENDUP” card. 

The third data set is the current listing of the SIMPL-M source for the 
STRCMACS (printed here as Appendix C). 

The fourth data set is the assembly language source of a program called 
RUFDRAFT. It is provided for those installations which do not have a TN (upper 
and lower case) print chain available. RUFDRAFT will translate the SIMPL-M 
listings of data set three for printing on HN, PN, or QN print trains. For in- 
structions on using RUFDRAFT, see the comments in the beginning of the source. 
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When requesting a copy of the STRCMACS, it would be appreciated if you 
would enclose a tape— our supply of DTK’s is limited. 

Any comments , suggestions , or criticisms of the macros will be greatly 
appreciated. 
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